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

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

textual

Код:

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.

Похожие ответы
  1. Дана матрица [mxn]. Если числострок, больше числа столбцов, удвоить все элементы матрицы и утроить их в обратном случае. Если матрица квадратная - то обнулить все ее элементы. Помогите пож-ста. Заранее спасибо

  1. Здравствуйте, если не трудно-помогите решить задачи.Если можно- с блок схемой. 1)Дана квадратная матрица а Порядка n.Проверте является ли данная матрица симметричной. 2)Даны две последовательности чисел a1, a2... ,an и b1, b2........ ,bn.Сформулируйте новые последовательности элементы которых вычисляются по следующему правилу: ai=max(ai ; bi) , bi=min(ai ; bi) , i=1,2,...........,n. 3)Дано натуральное n- значное число P.Проверить, является ли это число полиндромом (перевертышем). (Решить через функцию или процедуру) Я эту задачу решала, только со словом, используя lenght, а вот с числом не могу) Знаю что прошу много))) но мне завтра это все сдавать а у меня не получается)


Нашли ошибку?
Развитие проекта
Яндекс.Метрика