Записать на место отрицательных элементов матрицы нули - Pascal

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

textual

Код:

  for i:=1 to n do for j:=1 to n do
    a[i,j]:=Sin(j)+Sqr(Cos(i))*(i+j);
  WriteLn('A =');
  for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:7:1); WriteLn; end;
  for i:=1 to n do for j:=1 to n do
    if a[i,j]<0 then a[i,j]:=0;
  WriteLn('A''=');
  for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:7:1); WriteLn; end;

Похожие ответы
  1. Добрый день, помогите написать 2 программы, одну из них я написал, она работает полностью, за исключением вывода, в ней нужно чтобы ответы выводило всегда в текстовый файл, то есть и массив и сумму нечетных: УСЛОВИЕ: Дана матрица размерностью mxn, требуется написать программу, которая в каждой строке матрицы находится количество отрицательных элементов и результаты записывает в линейный массив, если общее количество отрицательных элементов матрицы больше 5, то найдите сумму всех элементов матрицы.

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

  1. 1) Составить программу из 2 частей, в основной программе ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули, на место положительных - единицы, в основной программе вывести на экран полученную матрицу: в естественном виде и треугольную матрицу, элементы которой лежат ниже побочной диагонали. 2) Написать программу расчета площади кольца при заданных внешних и внутреннем радиусе кольца, используя при этом подпрограмму вычисления площади круга 2 варианта: 1 - с процедурой, 2 - с функцией  


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