profile
Опубликовано 6 лет назад по предмету Информатика от Galuusha

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

  1. Ответ
    Ответ дан WinSagit

    если водится 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]<min then min:=a[i];

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

    end;

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

    end.

Самые новые вопросы