Напишите программу, которая в последовательности целых чисел определяет минимальное ОТРИЦАТЕЛЬНОЕ число, кратное 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всег...
Напишите программу, которая в последовательности целых чисел определяет минимальное ОТРИЦАТЕЛЬНОЕ число, кратное 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется ОТРИЦАТЕЛЬНОЕ число, кратное 6. плиззз дам мноого балов
Гость
Ответ(ы) на вопрос:
Гость// Pascal
var n, i, a, min:integer;
begin
min:=666666;
readln(n); //ввод количества чисел
// раз мы знаем количество чисел, то используем цикл for
for i:=1 to n do begin
readln(a);
//проверка введенного числа на кратность 6, отрицательность и минимальность
if (a<0)and (a mod 6 =0) and (a
Не нашли ответ?
Похожие вопросы