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

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

Question

Информатика

Фёдор

2 сентября, 13:50

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

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

+2

Ответы (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.