Нужно решить задачку: Найти максимальное и минимальное число

Задание:

Нужно решить задачку: Найти максимальное и минимальное число (Блок схема и программа) Работаем в Паскале

Решение:

Если водится n чисел то вот программаprogram maxmin; var a: array[1… 1000]of longint; i,n,max,min: longint; beginread (n); for i: =1 to n doread (a[i]); min: =a[1]; max: =a[1]; for i: =1 to n dobeginif a[i]max then min: =a[i]; end; writeln ('min=',min,'max=',max); end.

Знаете другой ответ?

Отправить свой ответ