Написать программу: Дан массив А(30), заполненный датчиком случайных чисел. Найдите экстремум.
Вопрос посетителя
Написать программу: Дан массив А(30), заполненный датчиком случайных чисел. Найдите экстремум.
Ответ эксперта
Program zadaha2 (input. output); {нахождение наибольшего и наименьшего}
var
a: array[1..30] of integer;
i, min,max: integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random (50);
writeln(‘значение’, I,’ элементы массива =’, a[i]);
end;
min:=a[1];
max:=a[1];
for i:=1 to 30 begin
if a[i]
end;
writeln (‘max=’, max, ‘min=’, min);
readln;
end.