Экономика
Гость
23.05.2020
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введеные числа не превышают 30 000.

программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Завтра Гиа помогите!!!
Ответы:
program fofgogjoj;

const n=1000;

var

a:array[1..n] of integer;

i,min:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random(30000);

end;

min:=a[1];

for i:=1 to n do begin

if ((a[i] div 7)=0) and (a[i]
min:=a[i];

end;

writeln('Минимальное число, делящееся на 7=',min);

end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.

Количество чисел не превышает 1000. Введеные числа не превышают 30 000.

программа должна вывести одно число - минимальное число, делящееся нацело на 7.

Завтра Гиа помогите!!! по предмету Экономика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.