program xxx; var a: array [1..20, 1..20] of real; i, j, n, m : integer; s, p : real; begin writeln ('введите n='); readln (n); writeln ('введите m='); readln (m); s:=0; p:=1; for i:= 1 to n do for j:= 1 to m do begin readln (a[i,j]); if a[i,j]<>0 then begin s:=s+a[i,j]; p:=p* a[i,j] end end; writeln('сумма элементов =', s); writeln ('произведение элементов =',p) end.
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const n=5; var a: array[1..n,1..n] of integer; i,j,s: integer; begin s: =0; randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 4); if (i+j) mod 3=0 then s: =s+a[i,j]; end; writeln; end; writeln('s=',s); end.
//PascalABC.NET 3.1 сборка 1239 const n = 10; m = 10;
var i, j: integer; a, b: array[1..n, 1..m] of integer; f: boolean;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(50); write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin f := false; for j := 1 to m do begin if not f and (a[i, j] mod 2 = 1) then begin a[i, j] := 2 * a[i, j]; f := true; end; write(a[i, j]:3, ' '); end; writeln; end; end.
program xxx;
var a: array [1..20, 1..20] of real;
i, j, n, m : integer;
s, p : real;
begin
writeln ('введите n=');
readln (n);
writeln ('введите m=');
readln (m);
s:=0;
p:=1;
for i:= 1 to n do
for j:= 1 to m do
begin
readln (a[i,j]);
if a[i,j]<>0 then begin
s:=s+a[i,j]; p:=p* a[i,j]
end
end;
writeln('сумма элементов =', s);
writeln ('произведение элементов =',p)
end.