(50 баллов) Помогите, пожалуйста!!! Программа Паскаль: написать массив, который выводит все элементы с нулём.
Const n=10;
var a:array[1..n] of integer;
i:integer; c:string;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(200);
write(a[i]:5);
end;
writeln;
for i:=1 to n do
begin
str(a[i],c);
if pos(0,c)>0 then write(a[i]:5);
end;
writeln;
end.
Пример:
110 43 38 35 103 44 35 192 86 199
110 103
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
