Const nx = 20;mx = 30; var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer; begin write('Введите число строк и столбцов');Readln(n,m);min:=1000; for i:=1 to n do begin sum[i]:=0; for j:=1 to n do begin A[i,j]:= random(100)-50; write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln; if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end; end;writeln;for i:=1 to n do writeln('i= ',i,' sum = ', sum[i]:4);writeln; writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);end.
function max(a, b: integer): integer; begin if a > b then max := a else max := b; end;
begin readln(a, b); writeln(max(a, 2 * b) * max(2 * a - b, b)); end.
5) const n = 10;
var a: array[1..n] of integer; i, s: integer;
begin for i := 1 to n do begin readln(a[i]); if i mod 2 = 0 then s := s + a[i]; end; writeln(s); end.
6) const handsfree = false;
var a: array[1..100, 1..100] of real; product: real; i, j, m, n: integer;
begin {ввод матрицы} if handsfree then begin n := random(20) + 2; m := random(20) + 2; end else begin write('n, m ='); readln(n, m); end;
writeln('Данные матрицы:'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(100) - 50; write(a[i, j]:4, ' ') end else read(a[i, j]); writeln; end;
product := 1; for i := 1 to m do for j := 1 to n do if a[i, j] > 0 then product := product * a[i, j]; writeln('product = ', product); end.
¬A & B | ¬B & A
вроде так