Предмет: Информатика,
автор: Аноним
Программа Pascal найти наименьшее и наибольшее число из 20 случайных чисел. СРОЧНО
Ответы
Автор ответа:
1
Ответ:
Объяснение:
var a:array[1..20]of integer;
i,min,max:integer;
begin
for i:=1 to 20 do
read(a[i]);
min:=a[1]; max:=a[1];
for i:=20 downto 2 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('Максимальное число - ',max);
write('Минимальное число - ',min);
end.
Интересные вопросы
Предмет: Українська мова,
автор: andrey12311
Предмет: Українська мова,
автор: fyoklina
Предмет: Английский язык,
автор: lussinne
Предмет: Музыка,
автор: Pasha33445566
Предмет: Геометрия,
автор: КасандраДан1