(Составить программу,массивы)
Записать в массив 30 случайных чисел от 2 до 40 . Вывести на экран номера тех элементов массива, значение которых кратно 7
Записать в массив 30 случайных чисел от 2 до 40 . Вывести на экран номера тех элементов массива, значение которых кратно 7
More Questions From This User See All
Answers & Comments
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.