Составить программу на паскале
18. Заполнить массив случайным образом и вывести на экран только элементы кратные 3 и 5.
18. Заполнить массив случайным образом и вывести на экран только элементы кратные 3 и 5.
More Questions From This User See All
Answers & Comments
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99);
var t:=mas.Where(t->(t mod 3 = 0) and (t mod 5 =0)); t.println;
end.
Как в школе учат ->
var mas:Array [1..20] of integer; i:integer;
begin
randomize;
for i:=1 to 20 do
mas[i]:=random(-99,99);
for i:=1 to 20 do
if (mas[i] mod 3 = 0) and (mas[i] mod 5 =0) then
Write(mas[i]:4);
end.