Найти max и min роста всех учеников 10 классе 7 человек

azatnacu azatnacu    1   10.03.2019 02:00    0

Ответы
kavuzov01karamba73 kavuzov01karamba73  24.05.2020 13:21

Программа присваивает ученикам случайное значение роста в диапазоне от 160 до 180 см.


Program n1;
Uses CRT;
Const n=7;
Var A: array[1..n] of integer;
i,min,max: integer;
begin
randomize;
ClrScr;
Writeln('Rost vseh ychashihsa');
max:=0;
For i:=1 to n do
begin
a[i]:=random(20);
a[i]:=a[i]+160;
write(a[i]:4);
If a[i]>max then max:=a[i];
end;
min:=max;
For i:=1 to n do
If a[i]<min then min:=a[i];
writeln;
Writeln('Max=',max,', min=',min);
readln
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика