Question

Дан целочисленный массив в размере 20 элементов. Составить программу на Паскале. Посчитать кол-во элементов кратных трём. B{1.....20}

Answer 1

Const n=20;
var
a:array [1..n] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to n do begin
readln(a[i]);
if a[i] mod 3=0 then
k:=k+1;
end;
writeln(k);
end.

Answer 2

Вот пример программы на Паскале, которая считает количество элементов в целочисленном массиве, кратных трём:

pascalCopy code
program CountMultiplesOfThree;

var
  B: array[1..20] of integer;
  i, count: integer;

begin
  { Инициализируем массив B случайными значениями }
  randomize;
  for i := 1 to 20 do
    B[i] := random(100); { Здесь предполагается, что значения в массиве B случайны и варьируются от 0 до 99 }

  { Инициализируем счетчик нулевым значением }
  count := 0;

  { Считаем количество элементов кратных трём }
  for i := 1 to 20 do
  begin
    if B[i] mod 3 = 0 then
      count := count + 1;
  end;

  { Выводим результат на экран }
  writeln('Количество элементов кратных трём в массиве B: ', count);

  readln;
end.

Эта программа создает массив B с 20 случайными целыми числами от 0 до 99, затем перебирает элементы массива и увеличивает счетчик (count) каждый раз, когда элемент кратен трём. В конце программа выводит количество таких элементов на экран.