Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

если водится n  чисел то вот программа

program maxmin;

var a:array[1..1000]of longint;

i,n,max,min:longint;

begin

read(n);

for i:= 1 to n do

read(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to n do

begin

if a[i]

if a[i]>max then min:=a[i];

end;

writeln(min=,min,max=,max);

end.