<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t).Between(100,999))
.Count.Println
end.
<u>Пример</u>
4492 13638 -4490 418 13985 -426 5805 -26574 28710 -378 17920 1886 -24200 0
3
Это любой материальный объект или среда ,используемый для хранения или передачи информации: карта памяти, компакт-диски..и т . д
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b
Const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7