Заполнить одномерный массив, состоящий из 20 элементов, случайными числами из промежутка [-100; 100]. Вывести элементы и их индексы, кратные заданному числу (число вводится с клавиатуры).

Надо написать программы на языке С++.

Question

Информатика

Васяй

28 декабря, 19:54

Заполнить одномерный массив, состоящий из 20 элементов, случайными числами из промежутка [-100; 100]. Вывести элементы и их индексы, кратные заданному числу (число вводится с клавиатуры).

Надо написать программы на языке С++.

+2

Ответы (1)

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

Гема · Answer 1

Var a:array[1 ... 20] of integer;

n, i:integer;

begin

read (n) ;

for i:=1 to 20 do begin

a[i]:=random (+201) - 100;

if (a[i] mod n = 0) and (i mod n = 0) then begin

write ('a[i]=', a[i],' i=', i) ;

writeln () ;

end;

end;

end.