Паскаль: в одномерном массиве а вычислить среднее арифметическое максимума и минимума элемента, найденым значениям заменить последними пятью элементами массива

291

464

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

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

saparchikrusoy10t7

Информатика

4,6(52 оценок)

Var a,b: integer; l: boolean; begin write('a = '); readln(a); l: =true; while (a< > 0) do begin b: =a; write('a = '); readln(a); if (a< > 0)and(a< =b) then l: =false; end; writeln(l); end. пример 1: a = 3 a = 6 a = 9 a = 4 a = 0 false пример 2: a = 3 a = 6 a = 7 a = 0 true