Найти и исправить ошибки в программе. 4-1 proram z; var n, m: char; beginwrite(n -> ); readln(m)m: =1; while sqr(m)> =n do m: =m+1; writeln(m); end 4-2program д; beginvar i, n, k, a: integer; readln(n); k: =0; for i: =1 to n doreadln(a); if a > 0 then k: =k+1; end; wreteln(k = ', k: 0: 2); end. 4-3 program w; var max; a: integer; n: longint; beginwrite('n -> '); readln(n); max: =10; while n < > 0 begina: =n mod 10; if a > max; then max: =a; n: =n mod 10; endreadln(max); end

Как-то так: program z; var n, m: byte; begin write('n = '); readln(n); m: =1; while sqr(m)> =n do m: =m+1; writeln('m = ', m); end. 4-2: program d; var i,n,k,a: integer; begin write('n = '); readln(n); k: =0; for i: =1 to n do begin readln(a); if a > 0 then k: =k+1; end; wreteln('k = ', k: 0: 2); end. 4-3: program w; var max, a: integer; n: longint; begin write('n = '); readln(n); max: =10; while n < > 0 do begin a: =n mod 10; if a > max then max: =a; n: =n mod 10; end; readln(max); end.

Const n=5; m=6; var  a: array[1..n,1..m] of integer; i,j,k,max: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; max: =0; for i: =1 to n do   begin   k: =0;   for j: =1 to m do   if a[i,j] mod 5=0 then k: =k+1;   writeln(i,': ',k);   if k> max then max: =k;   end; writeln('max = ',max); end. пример: исходный массив:   23    5  72    8  28  14   25  78  62  10  61  35   61  30  19  58  98  29   94  36  58  51  90  10   34  82  47  92  41  45 1: 1 2: 3 3: 1 4: 2 5: 1 max = 3

// pascalabc.net 3.3// cборка 1590 от 03.12.2017 begin    var a: =arrrandom(readinteger('введите размер массива-> ',65); a.println;     println(a.where(e-> e> 0).min);     println(a.where(e-> e< 0).defaultifempty.max);   end. пример(1): введите размер массива-> 10 5 22 21 20 40 9 58 57 54 -2 минимальное среди положительных: 5  максимальное среди отрицательных: -2  пример(2): введите размер массива-> 10 26 7 13 60 39 62 24 9 20 11 минимальное среди положительных: 7  максимальное среди отрицательных: 0