Ввести с клавиатуры числовой массив вещественного типа из
10 элементов, найти в нем максимальный и минимальный
элементы и их номера.
Исходный массив:
4 -5 10 -10,7 5 4,35 -0,12 1 3 8,1
максимальный A[3]=10
минимальный A[4]=-10,7

примерно надо по такому примеру
program a1;
var a: array [1..5] of integer;
i, min: integer;
begin
writeln(‘Введите пять чисел’);
for i:=1 to 5 do begin
read (a[i]);
end;
min:=a[1];
for i:=2 to 5 do begin
if a[i] < min then min:=a[i];
end;
write(‘Минимальный элемент_’);
write (min:4);
end.

dashayudina04    1   28.04.2020 08:00    0