Надо написать программу по нахождению в массиве минимальное и максимальное значение без...

Question

Надо написать программу по нахождению в массиве минимальное и максимальное значение без команды random. паскаль. Спасибо

Answer 1

Var a:array[0..4] of integer;
i,min,max:integer;
begin
for i:=0 to 4 do
read(a[i]);
max:=a[0];
min:=a[0];
for i:=1 to 4 do begin
if max max:=a[i];
if min>a[i] then
min:=a[i];
end;
writeln('Максимальное число:',max);
write('Минимальное число:',min);
end