Типовые алгоритмы обработки массивов.

Нахождение минимального (максимального) элемента массива.

MIN:= A[ 1 ]; {MAX:=A[ 1 ]}

FOR I:=2 TO 5 DO

IF MIN > A[ I ] {MAX < A[ I ]} THEN MIN:= A[ I ]; {MAX:= A[ I ]}

Массив – это упорядоченный набор однотипных элементов.

1. В разделе описания переменных двумерный массив описывается следующим образом:

Var

A, Mas: array [1..3,1..5] of integer;

1. Заполнить массив можно различными способами:

А) с клавиатуры

for i:=1 to 5 do

for J:=1 to 5 do read(a[i,j]);

B) случайными числами из интервала [a,b]. Например, числами от 10 до 39.

Randomize;

For i:=1 to 5 do

for J:=1 to 5 do a[i,j]:=random (30)+10;

С) по правилу. Например, элементы равны корню из произведения номеров строк и столбцов.

For i:=1 to 5 do

for J:=1 to 5 do a[i,j]:=2*sqrt(i*j);

1. Вывод элементов массива на экран.

For i:=1 to 5 do begin

for J:=1 to 5 do write(a[i,j]:2);

writeln;

end;

Дан массив размерностью nxm., заполненный случайными числами из интервала от –5 до 25. Найти количество элементов массива больших 20. Найти сумму элементов меньших 10.

Var

I,n,k,s:integer;

A: array [1..100,1..100] of integer;

Begin

Writeln(‘введи размерность массива’); readln(n,m);

Randomize;

For i:=1 to n do

for J:=1 to m do a[i,j]:=random (30)-5;

For i:=1 to n do begin

for J:=1 to m do write(a[i,j]:2);

writeln;

end;

S:=0;k:=0;

For i:=1 to n do

For j:=1 to m do begin

If a[i,j]<10 then s:=s+a[i];

If a[i,j]>20 then k:=k+1;

End;

Writeln(‘сумма =’,s:2)

Writeln(‘количество =’,k:2)

End.

Найти минимальный (максимальный) элемент двумерного массива.

MIN:= A[ 1, 1 ]; {MAX:=A[ 1, 1 ]} STR:=1; STL:=1;

FOR I:=1 TO N DO

FOR J:=1 TO M DO IF MIN > A[ I, J ] {MAX < A[ I, J ]} THEN

BEGIN

MIN:= A[ I, J ]; STR:=I; STL:=J;

{MAX:= A[ I, J ]; STR:=I; STL:=J}

Вычислить сумму элементов главной диагонали квадратной матрицы.

SUM:=0;

FOR I:=1 TO N DO SUM:= SUM + A[ I, J ];

Не нашли, что искали? Воспользуйтесь поиском: