Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы - Turbo Pascal

  1. Здравствуйте. Написал программу, не могли бы проверить её на правильность? Дан двумерный массив a, размером (nm). Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы.


textual

Код к задаче: «Заполнить одномерный массив, найдя произведение положительных элементов в каждом столбце матрицы - Turbo Pascal»

program c6;
const n=5;
const m=8;
var a:array[1..n,1..m] of real;
    b:array[1..m] of real;
    i,j:integer;
    p:real;
begin
randomize;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-3+6*random;
    write(a[i,j]:5:2)
   end;
  writeln
 end;
for j:=1 to m do
 begin
  p:=1;
  for i:=1 to n do
  if a[i,j]>0 then p:=p*a[i,j];
  b[j]:=p
 end;
writeln('Массив произведений');
for i:=1 to m do
write(b[i]:0:2,' ');
readln
end.

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

13   голосов, оценка 4.231 из 5



Похожие ответы
  1. Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений.

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

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

  1. Выручайте. На этом форуме неправильное решение

  1. Массив предназначен для хранения значений ростов 12 человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 163 до 190 включительно. не знаю как записать рандом в ИнтАле

  1. Не могу разобраться как заполнить двумерный массив случайными строчными и заглавными буквами латинского алфавита. Помогите разобраться.

  1. Задача 8 Переформировать двумерный массив: в одномерный: (2, 7, -1, 0, 4, 5, 7, -5, 6).

  1. Cформировать квадратную матрицу порядка n по заданному образцу: Всем огромное спасибо заранее)

  1. Вот такая задачкаФайл f заполнить 400 случайными действительными числами. Найти разницу первой и последней компоненты файла f Наперед огромное спасибо

  1. Построить окружность синего цвета и заполнить ее косыми линиями // нормальной толщины.