Регистрация
джемре
29.05.2021 18:45
Информатика
Есть ответ 👍

Вдвухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-ой столбца надо

145
387
Посмотреть ответы 2

Ответы на вопрос:

sofiazahhа
sofiazahhа
4,6(93 оценок)
{в двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-го столбца} var   c: array [1..100,1..100] of integer;   p: longint;   kol, k: byte; {кол-во отрицательных эл-тов}   n,m,i,j: byte; begin   writeln('введите размерность массива (кол-во строк, столбцов)');   readln(n,m);   writeln('введите элементы двумерного массива');   for i: =1 to n do   for j: =1 to m do     read(c[i,j]);   writeln('введите номер столбца');   readln(k);   kol: =0; p: =1;     for i: =1 to n do     if  (c[i,k] mod 4< > 0) and (c[i,k]> =100) and (c[i,k]< 1000) then  {не кратно 4, трехзначное}     begin         p: =p*c[i,k];         kol: =kol+1     end;     writeln('kol=', kol: 7);     writeln('произведение=', p: 5) end.
лалала74
лалала74
4,4(36 оценок)

(microsoft excel) можно без

Популярно: Информатика