Pascal. Дан массив натуральных чисел. Вывести все элементы массива, являющиеся двузначными числами.
Const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(300);
write(a[i]:5);
end;
writeln;
for i:=1 to n do
if (a[i]>9)and(a[i]<100) then write(a[i]:5);
writeln;
end.
Пример:
155 286 36 282 211 250 97 196 228 2
36 97
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
