Question

4. Вывести на экран только те элементы массива, которые меньше 5, элементы
массива заданы случайным образом.
var
а:array [1..10] of integer;
i:integer;
begin
for……begin
a[i]:=…(10);
write (a[........]:3);
end;
writeln;
writeln ('новый массив');
end.

Помогите,пожалуйста!

Answer 1

Pascal

var

 a:array [1..10] of integer;

 i:integer;

begin

 randomize;  

 for i:=1 to 10 do begin

   a[i]:=random(10);

   write(a[i]:3);

 end;

 writeln;

 for i:=1 to 10 do

   if a[i]<5 then

     write(a[i]:3);

end.