Составить программу заполнения массива A(20)
Случайными числами до 50
Заменить числа <20нулями.Распечатать массив в с троку
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var a:=ArrRandom(20,1,50); a.Println;
for var i:=0 to 19 do
if a[i]<20 then a[i]:=0;
a.Println
end.
Пример
44 48 5 39 18 4 25 45 33 49 10 30 15 23 31 30 42 10 3 34
44 48 0 39 0 0 25 45 33 49 0 30 0 23 31 30 42 0 0 34
begin
var a:=ArrRandom(20,1,50); a.Println;
for var i:=0 to 19 do
if a[i]<20 then a[i]:=0;
a.Println
end.
Пример
44 48 5 39 18 4 25 45 33 49 10 30 15 23 31 30 42 10 3 34
44 48 0 39 0 0 25 45 33 49 0 30 0 23 31 30 42 0 0 34
Новые вопросы