Кто решит, тот молодечик! дана матрица ( массив ) a(n; m). вывести на экран массив a(n; m) и сумму элементов этого массива, находящихся в строке х. размеры массива a(n; m) и номер строки х вводятся с клавиатуры, а элементы гсч (randomize)
uses crt; var a:array [1..99, 1..99] of integer; i,j,n,m,x,z:integer; begin clrscr; randomize(); z:=0; writeln('Введите количество строк'); readln(n); writeln('Введите количество столбцов'); readln(m); writeln('Введите номер строки'); readln(x); for i:=1 to n do for j:=1 to m do begin a[i,j]:=random(10); if x=i then z:=z+a[i,j]; end; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:2, ' ' ); writeln(); writeln; end; writeln('Сумма ',x,' строки=',z); readln(); end.
uses crt;
var a:array [1..99, 1..99] of integer;
i,j,n,m,x,z:integer;
begin
clrscr;
randomize();
z:=0;
writeln('Введите количество строк');
readln(n);
writeln('Введите количество столбцов');
readln(m);
writeln('Введите номер строки');
readln(x);
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(10);
if x=i then z:=z+a[i,j];
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:2, ' ' );
writeln();
writeln;
end;
writeln('Сумма ',x,' строки=',z);
readln();
end.