Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Случайным образом заданы 10 чисел от 1 до 100 , надо написать программу , которая выберет среди них все двузначные. Язык програмирования паскаль.
заранее спасибо

Ответ оставил Гость

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.