Вводится последовательность чисел конец последовательности -0 найти максимальное число. паскаль абс

239

385

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

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

chapa00

Информатика

4,4(30 оценок)

Var a,max: integer; begin write('a='); readln(a); max: =a; while a< > 0 do begin if a> max then max: =a; write('a='); readln(a); end; writeln('max = ',max); end. пример: a=25 a=84 a=26 a=17 a=80 a=51 a=0 max = 84

55636906ррлиод

Информатика

4,7(99 оценок)

Не советую на будущее создавать папки на языках отличных от а) а: \навчальній план\природничі дисципліни\ фізикаб) а: \ підручники\українська літератураи это всё на дискете, если это имеет дело. там тоже не советую хранить такую инфу