(Составить программу,массивы) Записать в массив 30 случайных чисел от 2 до 40 . Вывести на экран номера тех элементов массива, значение которых кратно 7
(Составить программу,массивы)
Записать в массив 30 случайных чисел от 2 до 40 . Вывести на экран номера тех элементов массива, значение которых кратно 7
Гость
Ответ(ы) на вопрос:
Гостьvar a: array[1..30] of Integer;
i: Integer;
Begin
write('Кратные 7: ');
for i := 1 to 30 do
begin
a[i] :=random(39) + 2;
if a[i] mod 7 = 0 then write(a[i],' ');
end;
End.
Не нашли ответ?
Похожие вопросы