1 var i, j, n: integer; a: array[1..3, 1..8]of integer; begin for i := 1 to 3 do begin for j := 1 to 8 do begin a[i, j] := random(-9, 9); write(a[i, j]:3); if a[i, j] < 0 then n := n + 1; end; writeln; end; writeln('Количество отрицательных: ', n); end.
2 var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i := 1 to 6 do begin for j := 1 to 7 do begin p[i, j] := random(-9, 9); write(p[i, j]:3); end; writeln; end; write('Какую строку вывести: '); readln(n); for j:=1 to 7 do write(p[n,j]:3); end.
3 var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i := 1 to 6 do begin for j := 1 to 7 do begin p[i, j] := random(-9, 9); write(p[i, j]:3); end; writeln; end; write('Какую строку изменить: '); readln(n); for j:=1 to 7 do p[n,j]:=5; for i := 1 to 6 do begin for j := 1 to 7 do write(p[i, j]:3); writeln; end; end.
4 var i, j, n: integer; a: array[1..10, 1..10]of integer; begin for i := 1 to 10 do begin for j := 1 to 10 do begin a[i, j] := random(-9, 9); write(a[i, j]:3); end; writeln; end; for j:=1 to 10 do a[j,j]:=0; writeln('Измененный массив: '); for i := 1 to 10 do begin for j := 1 to 10 do write(a[i, j]:3); writeln; end; end.
Var i, n: integer; k: array[1..12]of real; begin for i := 1 to 10 do begin k[i] := random(-90,90)/10; write(k[i]:5:1); end; writeln; for i:=2 to 12 do if (k[i-1]>0) and (k[i]>0) then n:=n+1; writeln('Число пар: ',n); end.
Не обратил внимания, в условии требуют действительные числа. Хотя целые являются тоже действительными, но для формального выполнения требований изменил: var i, n: integer; k: array[1..12]of real; begin for i := 1 to 10 do begin k[i] := random(-90,90)/10; write(k[i]:5:1); end; writeln; for i:=2 to 12 do if (k[i-1]>0) and (k[i]>0) then n:=n+1; writeln('Число пар: ',n); end.
B5:D25=42
Z2:Z130=129