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

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


textual

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

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.

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

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



Похожие ответы
  1. Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

  1. Здравствуйте,помогите пожалуйста написать программу,спасибо.Напишите программу, которая строит списки смежности для каждой вершины графа на основе его матрицы смежности. Входные данные В первой строке вводится количество вершин графа N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – элементы матрицы смежности графа. Выходные данные Программа должна вывести списки смежности для каждой вершины графа в порядке возрастания их номеров. Номера вершин в каждом списке разделены пробелами. Нумерация начинается с единицы. Если из вершины не выходит ни одно ребро, вместо списка нужно вывести число 0. Примеры входные данные 5 0 1 1 1 0 1 0 1 0 1 1 1 0 1 0 0 0 0 0 0 0 1 0 1 0 выходные данные 2 3 4 1 3 5 1 2 4 0 2 4

  1. Если сумма минимальных элементов столбцов превышает максимальный элемент матрицы, то к элементам стоящим на главной диагонали добавить соответствующие минимальные элементы строк. В противном случае матрицу оставить без изменения.

  1. Записать на место отрицательных элементов матрицы A(10;10) нули и вывести ее на печать в общепринятом виде. a(ij)=(sin(j)+cos^2(i)*(i+j)

  1. Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали(над половиной главной диагонали и под половиной побочной).

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

  1. Вычислить сумму нечетных элементов матрицы, расположенных на побочной диагонали. Закрасить указанные элементы.

  1. нужно было решить уравнение методом Ньютона. помогите понять почему так странно работает. на других функциях работает нормально

  1. Составить программу, которая в задаваемом пользователем двумерном числовом массиве размеров n*n исключает строку и столбец, содержащие максимальный элемент массива.