Program Pr1; uses crt; var mas:array[1..20,1..20] of integer; i,j,v:integer; Begin clrscr; for i:=1 to 20 do for j:=1 to 20 do readln(mas[i,j]); for i:=1 to 20 do for j:=1 to 20 do if mas[i,j]>0 then begin writeln(i,'-ая строка ',j,'-ый столбец'); v:=mas[i,j]; end; for i:=1 to 20 do for j:=1 to 20 do mas[i,j]:=v; end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=MatrixRandom(n,n,10,99); var s:=0; var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); Writeln; if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end; end; if k>0 then Writeln('S=',s/k:0:2) else Writeln('На главной диагонали нет четных элементов') end.
Program Pr1;
uses crt;
var mas:array[1..20,1..20] of integer;
i,j,v:integer;
Begin
clrscr;
for i:=1 to 20 do
for j:=1 to 20 do readln(mas[i,j]);
for i:=1 to 20 do
for j:=1 to 20 do if mas[i,j]>0 then begin
writeln(i,'-ая строка ',j,'-ый столбец');
v:=mas[i,j];
end;
for i:=1 to 20 do
for j:=1 to 20 do mas[i,j]:=v;
end.