Дан массив из 15 целых чисел.найти количество целых - вопрос №5285487151015 от миккимаус1890677 03.04.2020 19:58

Question

Информатика: Дан массив из 15 целых чисел.найти количество целых чисел 10,но 15. ! надо составить программу

миккимаус1890677 · Answer

Массив заполним случайными целыми от 0 до 20

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(15,0,20);
println(a);
var s:=0;
for var i:= 0 to 14 do
if (a[i]>10) and (a[i]<15) then s +=1;
println('таких чисел ',s);
end.

Дан массив из 15 целых чисел.найти количество целых чисел > 10,но < 15. ! надо составить программу