Напишите полное решение без пояснений: вывести ** экран элементы массива у которых сумма...

Question

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

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.