Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (циклом с предусловием в pascalabc), на фото программа с постусловием. а решить надо с предусловием.

var x, max: integer;

begin

x: =-1;

max: =-1;

while x< > 0 do

  begin

    readln(x);

    if x=0

      then break;

    if x> max

      then max: =x;

  end;

if (max < 1)

  then writeln('нет чисел, удовлетворяющих условию')

else writeln ('максимальное число: ', max);

end.

Var n,a,k: integer; p,s: real; begin write('n = '); readln(n); k: =0; for n: = 1 to n-1 do       begin       a: =n;       s: =0;       while a> 0 do             begin             s: =s+(a mod 10);             a: =a div 10;             end;       a: =n;       p: =1;       while a> 0 do             begin             p: =p*(a mod 10);             a: =a div 10;             end;       if s=p then             begin             writeln(n);             k: =k+1;             end;       end; if k=0 then writeln('нет'); end.

// pascalabc.net 3.0, сборка 1128 procedure allmake(p: array of integer; var avg: real); begin   avg: =p.average;   for var i: =0 to p.length-1 do       if p[i]< avg then p[i]*=10 end; begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,1,50);   writeln('исходный массив'); a.println;   var av: real;   allmake(a,av);   writeln('среднее арифметическое равно ',av);   writeln('результирующий массив'); a.println;   writealltext('out.txt',a.joinintostring) end. тестовое решение: количество элементов в массиве: 15 исходный массив 34 50 49 50 17 21 13 25 11 43 47 45 30 11 1 среднее арифметическое равно 29.8 результирующий массив 34 50 49 50 170 210 130 250 110 43 47 45 30 110 10 файл out.txt дан во вложении.