Предмет:
ИнформатикаАвтор:
анонимКод написан в PascalABC.NET.
Program AandBarray;var i, j, m, n, h: integer;A: array[1..1000,1..1000] of integer;B: array[1..1000] of integer;beginWrite(\'m = \');
Readln(m);Write(\'n = \');
Readln(n);randomize;for i := 1 to m do beginfor j := 1 to n do beginA[i,j] := random(10);write (A[i,j]:3)end;writeln;end;Writeln(\'Массив B:\');h := 0;for i := 1 to m do beginfor j := 1 to n do beginif (A[i,j] mod 3 = 0) then h := h + A[i,j];end;if (h = 0) then B[i] := -10 else B[i] := h;Write(B[i]:4);h := 0;end;End.
Автор:
doroteaДобавить свой ответ