Question

Вывести на экран 6 случайных чисел от 0 до 20 и номера элементов больше 10

Answer 1

var
i:integer;
mas: array [1..6] of integer;
begin
writeln('6 случайных чисел:');
randomize;
for i:=1 to 6 do begin
mas[i]:=random(0,20);
write(mas[i], ' ');
end;
writeln(' ');
writeln('Номера элементов > 10:');
for i:=1 to 6 do begin
if mas[i] > 10 then
write(i,' ');
end;
end.