с заданием по информатике.С черным ящиком Имеются протоколы испытаний некого «чёрного ящика». При испытаниях - id1297083920211119 от rgewwet 19.11.2021 17:35

Question

Информатика: с заданием по информатике.С черным ящиком Имеются протоколы испытаний некого «чёрного ящика». При испытаниях протоколы описывали входы и соответствующие им выходы системы. Определи правило преобразования информации и заполни пустую строчку. Вход май 9 314 12570 956 10233 Выход Не могу 1 0 0 1

rgewwet · Accepted Answer

Const
n=5;
var
a:array[1..5,1..5] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      a[i,j]:=Random(100)+1;
      Write(a[i,j]:4);
      if a[i,j] mod 5 = 0 then k:=k+1
      end;
    Writeln
    end;
Writeln('Количество элементов, кратных 5, равно ',k)
end.

Контрольный пример
Исходный массив
82 100   2 68 88
31 75 21 18   7
100 65 23 80 27
   1 88 49 94 93
50 87 77 67 80
Количество элементов, кратных 5, равно 7

MOGZ ответил