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

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

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

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

textual
const
mx = 10;
nx = 5;
var a:array[1..mx,1..nx] of integer;
i, j, k: integer;
begin
writeln('Исходный массив');
for i:=1 to mx do
    begin
    for j:=1 to nx do
        begin
        read(a[i,j]);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to nx do
    begin
    k:=1;
    for j:=1 to mx do
        k:=k*a[j,i];
    if k mod 5 <> 0 then
    writeln('Произведение элементов в столбце ',i, ' = ',k);
    end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ