помогите решить задачу, пожалуйста
создать программу формирования и вывода на экран одномерного массива,состоящего из сумм элементов строк двумерного массива,заданного с помощью датчика случайного числа...
Что значит "одновременно"?
Паскали разные бывают. Для Delphi консольная программа:
Код:
program prog;
{$APPTYPE CONSOLE}
var
A: array[1..3] of array[1..4] of integer;
B: array[1..3] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 3 do
begin
B[i] := 0;
for j := 1 to 4 do
begin
A[i,j] := random(10);
B[i] := B[i] + A[i][j];
end;
end;
WriteLn('A[]: ');
for i := 1 to 3 do
begin
for j := 1 to 4 do Write(A[i][j], ' ');
WriteLn;
end;
Writeln;
Write('B[]: ');
for i := 1 to 3 do Write(B[i], ' ');
readln;
end.
{$APPTYPE CONSOLE}
var
A: array[1..3] of array[1..4] of integer;
B: array[1..3] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 3 do
begin
B[i] := 0;
for j := 1 to 4 do
begin
A[i,j] := random(10);
B[i] := B[i] + A[i][j];
end;
end;
WriteLn('A[]: ');
for i := 1 to 3 do
begin
for j := 1 to 4 do Write(A[i][j], ' ');
WriteLn;
end;
Writeln;
Write('B[]: ');
for i := 1 to 3 do Write(B[i], ' ');
readln;
end.