Решение матрицы - Pascal (80210)

Формулировка задачи:

Помогите сделать программу для вычисления и запомнить суммы и число положительных элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов, размеры матрицы A(20,15) элементы матрицы


textual

Код к задаче: «Решение матрицы - Pascal (80210)»

const m=20;
      n=15;
var a:array[1..m,1..n] of real;
    i,j,k:byte;
    s:real;
begin
writeln('Матрица');
writeln('Сумма':5*n+8,'Кол.пол.':10);
for i:=1 to m do
 begin
  s:=0;
  k:=0;
  for j:=1 to n do
   begin
    a[i,j]:=(1+cos(j))*ln(1+0.5*cos(i));
    s:=s+a[i,j];
    if a[i,j]>0 then k:=k+1;
    write(a[i,j]:5:2);
   end;
  writeln(s:8:2,k:8);
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5

Источник
Похожие ответы