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

Скабёлкина М.Ю.
Липецк 2010
10 класс

и минимального элементов массива;
формирование умения применять на практике полученные

real;
D[1..5]:array of integer;

:= array [] of ;

чисел, используя команду…

Clrscr;
A[i]:=?;
Randomize;

then k:=k+1;
If a[i]>=0 then k:=k+a[i];
If a[i]>=0 then k:k+1;

5 -18 59 79 95

Минимальный элемент?

95

– минимальный (максимальный).
2.Пока не конец массива:
Сравниваем каждый

min:integer;

for i:=1 to 10 do begin
a[i]:=random(30);
writeln (‘znas4enie’,i, ‘elementa

min:=a[1];

for i:=1 to 10 do begin

if a[i]end;

writeln(‘min=’,min);
readln;
end.

begin
randomize;

элемент массива и увеличить его в 3 раза.