Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

{В двухмерном массиве найдите количество и произведение не кратных 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.