Ответы на вопрос:
uses system; var ch,min,max,i: integer; begin cls;
readln(ch); min: =ch; max: =ch;
while(ch< > 0) dobegin readln(ch); if ((min > ch) and (ch< > 0)) then min: =ch; if max < ch then max: =ch; inc(i); if i > 999 then break; end;
writeln('max = ', max); writeln('min= ',min); writeln('suma max + min = ',max+min); readln; end.
Популярно: Информатика
-
plaksienko04p085t409.10.2021 07:51
-
222111ALEXA11122215.05.2021 12:42
-
маняня413.07.2020 08:10
-
amdrik122121.05.2021 06:53
-
koblovalv08.05.2021 20:03
-
shum221.04.2020 23:54
-
Pifpafff18.03.2023 21:20
-
lampusha02.03.2023 20:31
-
top76543211vfjo28.07.2020 20:41
-
lobanovartem222.01.2020 19:01