Кто решит, тот молодечик! Дана матрица ( массив ) A(N;M). Вывести на экран массив A(N;M) и сумму элементов этого массива, находящихся в строке х. Размеры массива A(N;M) и номер строки х вводятся с клавиатуры, а элементы задаютс...
Кто решит, тот молодечик! Дана матрица ( массив ) 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.
Не нашли ответ?
Похожие вопросы