Вениамин
7 год назад
Найти минимальный и максимальный элементы массивы(программку написать)
ОТВЕТЫ
Anempodist
Jul 17, 2019
var
arr: array[1..100] of integer;
i, n, max, min: integer;
begin
max:=1;
min:=1;
readln(n);
for i:=1 to n do
begin
read(arr[i]);
if arr[i] gt; arr[max] then max:=i
else if arr[i] lt; arr[min] then min:=i;
end;
writeln;
writeln(Минимальный: , arr[min], );
writeln(Максимальный: , arr[max], );
end.
i, n, max, min: integer;
begin
max:=1;
min:=1;
readln(n);
for i:=1 to n do
begin
read(arr[i]);
if arr[i] gt; arr[max] then max:=i
else if arr[i] lt; arr[min] then min:=i;
end;
writeln;
writeln(Минимальный: , arr[min], );
writeln(Максимальный: , arr[max], );
end.
59
