Решаем задачи Абрамян на Паскале. Matrix17

Matrix17. Дана матрица размера $$M \times N$$ и целое число $$K$$ $$(1 \le K \le M)$$. Найти сумму и произведение элементов $$K$$-й строки данной матрицы.

Решение:

program Matrix17;
var
  a:array [1..10,1..10] of integer;
  Sum, Mult,M, N, K, i, j:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);
 Write('K: ');
 Readln(K);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

  Sum:=0;
  Mult:=1;
   for j:=1 to N do
    begin
     Sum:=Sum+a[K,j];
     Mult:=Mult*a[K,j];

    end;

   Write('Sum:',Sum, ' Mult: ',Mult);
end.

program Matrix17;

var

a:array [1..10,1..10] of integer;

Sum, Mult,M, N, K, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

Write('K: ');

Readln(K);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

Sum:=0;

Mult:=1;

for j:=1 to N do

begin

Sum:=Sum+a[K,j];

Mult:=Mult*a[K,j];

end;

Write('Sum:',Sum, ' Mult: ',Mult);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix17

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ