Случайным образом заданы 10 чисел от 1 до 100 , надо написать программу , которая выберет среди них все двузначные. Язык програмирования паскаль.
заранее спасибо
Ответы
Ответ дал:
1
var a:array [1..100] of integer;
i:integer;
begin
randomize;
for i:=1 to 100 do begin
a[i]:=random(i);
if (a[i]>=10) and (a[i]<=99) then write (a[i],' ');
end;
end.
i:integer;
begin
randomize;
for i:=1 to 100 do begin
a[i]:=random(i);
if (a[i]>=10) and (a[i]<=99) then write (a[i],' ');
end;
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад