Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,2000); a.Println;
a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.
Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,1,2000); a.Println;
a.Where(x->x.InRange(100,999) and (x mod 5=0)).Println
end.
Пример
1337 1824 163 415 330 1865 180 1695 539 551
415 330 180
Ответ дал:
0
program test;
var
arr:=ArrRandom(10,1,2000);
a,b,i: integer;
begin
for i:=0 to 9 do
if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then
write(arr[i]+' ');
end.
var
arr:=ArrRandom(10,1,2000);
a,b,i: integer;
begin
for i:=0 to 9 do
if (arr[i] div 100 > 0) and (arr[i] div 100 < 10) and (arr[i] mod 5 = 0) then
write(arr[i]+' ');
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад