Напишите полное решение без пояснений:

вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 7 (элементов массива: 15. массив вводится случайным образом в интервале [10; 13])

Question

Информатика

Римуся

2 декабря, 01:15

Напишите полное решение без пояснений:

вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 7 (элементов массива: 15. массив вводится случайным образом в интервале [10; 13])

+1

Ответы (1)

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

Аксюша · Answer 1

Uses crt;

const n=15;

var mas:array [1 ... n] of integer;

i:integer;

begin

mas[i] : = Random (23) - 10;

for i:=1 to n do

readln (mas[i]) ;

write ('Числа кратные 7: ') ;

for i:=1 to n do

if ((mas[i]+i) mod 7 = 0) then

write (mas[i],' ') ;

end.