Напишите полное решение без пояснений: вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 7 (элементов массива:15. массив вводится случайным образом в интервале [10;13])
Напишите полное решение без пояснений:
вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 7 (элементов массива:15. массив вводится случайным образом в интервале [10;13])
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы