// PascalABC.NET 3.3, сборка 1541 от 29.09.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(6,7,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); for var i:=0 to a.RowCount-1 do for var j:=0 to a.ColCount-1 do if (a[i,j]>0) and (i+j).IsEven then a[i,j]:=0; Writeln('*** Результирующая матрица ***'); a.Println(4) end.
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
1) const n=5; var a:array[1..n,1..n]of integer; i,j:integer; begin for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=i+j; write(a[i,j]:4); end; end; end. 2) const n=4;m=5; var a:array[1..n,1..m]of integer; i,j,max:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:4); end; end; max:=a[1,1]; for i:=1 to n do for j:=1 to m do if a[i,j]>max then max:=a[i,j]; writeln; writeln(max); for i:=1 to n do for j:=1 to m do if (a[i,j]<0)and(a[i,j]>-5)then a[i,j]:=max; writeln; for i:=1 to n do begin writeln; for j:=1 to m do write(a[i,j]:4); end; end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(6,7,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
for var i:=0 to a.RowCount-1 do
for var j:=0 to a.ColCount-1 do
if (a[i,j]>0) and (i+j).IsEven then a[i,j]:=0;
Writeln('*** Результирующая матрица ***'); a.Println(4)
end.
Пример
-74 73 61 97 96 52 -23
77 -99 -79 48 67 -3 -23
63 -61 -26 28 -99 89 -13
-85 43 -14 85 -8 91 -70
-68 90 71 -23 94 67 -81
-69 -52 44 47 96 -48 89
*** Результирующая матрица ***
-74 73 0 97 0 52 -23
77 -99 -79 0 67 -3 -23
0 -61 -26 28 -99 89 -13
-85 0 -14 0 -8 0 -70
-68 90 0 -23 0 67 -81
-69 -52 44 0 96 -48 89