Регистрация
coldsssiemens
01.06.2021 04:48
Информатика
Есть ответ 👍

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

116
454
Посмотреть ответы 2

Ответы на вопрос:

Katylopy
Katylopy
4,8(99 оценок)

если водится 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.

киса2013438
киса2013438
4,5(28 оценок)

var

a,b: integer;

begin

readln(a);

readln(b);

while a < > 0 do

begin

if a < b then

writeln('a=',a);

readln(a);

end;

end.

Популярно: Информатика