Дан массив 18 натуральных чисел.напечатать все элементы массива,являющиеся трехзначными числами

юля2716 юля2716    3   15.09.2019 03:30    5

Ответы
qwerttrewq12345 qwerttrewq12345  07.10.2020 16:02
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(18,10,5000); a.Println;
  a.Where(t->t.Between(100,999)).Println
end.

Дан массив 18 натуральных чисел.напечатать все элементы массива,являющиеся трехзначными числами
ПОКАЗАТЬ ОТВЕТЫ
viktoria388 viktoria388  07.10.2020 16:02
Program n1;
var a: array[1..18] of integer;
i: integer;
begin
randomize;
for i:=1 to 18 do a[i]:=random(10000);
for i:=1 to 18 do if (a[i]>99) and (a[i]<1000) then write(a[i],' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика