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

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

Написать программу на зыке Pascal для обработки матриц. Размерности матрицы и ее элементы должны вводиться с клавиатуры. Полученная матрица и другие элементы должны выводиться на экран. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.

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

textual
  mult:=0;
  p:=1; i:=m;
  while (i>0) and (a[i,jj] mod 5<>0) do begin
    p:=p*a[i,jj]; Dec(i);
  end;
  if i=0 then mult:=p;
Эта работа вам не подошла?

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

9   голосов, оценка 3.667 из 5


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