Pascal. Дан массив натуральных чисел. Вывести все элементы массива, являющиеся двузн?
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
Не нашли ответ?
Похожие вопросы