Напишите программу которая в последовательности натуральных чисел определяет количество чисел меньше 500 и кратных 3. програма получает на вход количетво чисел, а затем сами числа. введеные числа не привышают 30000

//Pascal
var a,i,n,k:integer;
begin
  k:=0;
  readln(n);
  for i:=1 to n do begin
    readln(a);
    if (a mod 3 = 0) and (a<500) then
      k:=k+1;
  end;
  writeln(k);
end.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Відповідь:

1.Засвоєння інформації, обробка інформації.

2.Повідомлення про всіх тварин, режим роботи, ціну білету, маршрут руху, схему проїзду дає можливість людині спланувати похід до зоопарку.

3.Обчислення за до калькулятора, зняття коштів з картки в банкома-ті, переведення коштів на картку через термінал, використання дисконтної картки в аптеці.

4.Зберігання повідомлень — запис домашнього завдання до щоденника, фотографування пам’яток архітектури, запис номера телефону друга.

Передавання повідомлень — смс друзям з адресою театру, розповідь про прочитаний твір.

Опрацювання повідомлень — розв’язування задачі з математики, відтворення музичного твору на гітарі.

Пошук повідомлень — пошук визначення у словнику, пошук в Інтернеті, проведення стосовно температури повітря.