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

Question

Информатика

Евгеньюшка

4 января, 18:28

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ефросиньюшка · 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.