Пусть дано 100 целых чисел, которые вводятся по одному. найдите количество элементов больших числа 10 и кратных 3
Ferencvik
2
30.03.2019 17:10
1
Другие вопросы по теме Информатика
Rudisaleh
11.06.2019 15:20
Denistypitjin
11.06.2019 15:20
Amarcy
11.06.2019 15:20
temik261
11.06.2019 15:20
helenkarchevskp08ll5
11.06.2019 15:10
nikzakora
11.06.2019 15:10
povorovak
11.06.2019 15:10
Популярные вопросы
- Цитаты из горе от ума , характеризующие молчалина в первом действии...
3 - Вычислите площадь круга, радиус которого равен 1 см...
1 - Одна третья часть площади квадрата равна 3 квадратных сантиметра...
3 - Much luck .,little energy., many money., a lot of неверный вариант...
1 - Прочитайте поговорки. придумайте короткие рекомендации начинающему...
3 - Борьба маши за честь и доброе и меня гринёва...
1 - Составьте предложение со словом остался жив на языке...
3 - Язабыла как это делать,так что 1/4*1/4*1/4=...
3 - Периметр прямоугольника равен 48 см. если одну его сторну увеличить...
1 - Название страны в которой жил леонардо давинчи...
2
Program Pr1;
uses crt;
var mas:array[1..100] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
for i:=1 to 100 do begin
read(mas[i]);
if (mas[i]>100) and (mas[i] mod 3=0) then a:=a+1;
end;
writeln(a);
end.