Найти минимальный и максимальный элементы массивы(программку написать)
Answers & Comments
wnullvar 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] > arr[max] then max:=i else if arr[i] < arr[min] then min:=i; end; writeln; writeln('Минимальный: ', arr[min], ''); writeln('Максимальный: ', arr[max], ''); end.
Answers & Comments
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] > arr[max] then max:=i
else if arr[i] < arr[min] then min:=i;
end;
writeln;
writeln('Минимальный: ', arr[min], '');
writeln('Максимальный: ', arr[max], '');
end.