Информатика, опубликовано 2018-08-22 21:40:48 by Гость
Напишите полное решение без пояснений: вывести на экран элементы массива у которых сумма номера и элемента дают число кратное 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на