напишите программу которая в последовательности натуральных чисел определяет минимальное число кратное 3. знаю как написать программу

+ 0 -

Asemlukpanova

25 нояб. 2013 г., 9:19:17 (10 лет назад)

Хм... У меня такое задание было на ЕГЭ..)))

Предложу немного другой алгоритм:

Пусть будет "последовательности натуральных чисел" это массив с элементами в кол-ве х.

var

a:array[1..x];

b,c: integer;

begin

----

c:=1;

----

for b:= 1 to x

read(a(b);

end;

---- Заполняем массив

for b:= 1 to x

 If a(b) mod 3 = 0 then  

  begin

   a(c):=a(b);

   c:= c+1;

 end If;

end;

----- Тут мы переписываем заного массив, элементами кратными 3.

c:= a(1)

for b:= 2 to c

if c < a(b) then c: = a(b);

end;

----- А тут мы находим наименьшее значение кратное 3 и записываем в с.

P.S. Могут присутствовать ошибки в пунктуации и синтаксисе (Паскаль)...))) Думаю разберёшься...)))

P.P.S. Сначала паскаль потом под ----- Пояснение...))))

+ 0 -

Seryfedotov

25 нояб. 2013 г., 11:38:04 (10 лет назад)

В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной min значение первого числа последовательности, а потом сравниваешь с этим числом все остальные. Смотри:

В Паскале:

Var a, i, mix, N: integer;

Begin

 Write ('Введите количество чисел в последовательности '); readln (N);

 Write ('Введите первое число последовательности '); readln (a);

 min:=a;

 for i:=1 to N do

 begin

  Write ('Введите следующее число последовательности '); readln (a);

  if (a mod 3 = 0) and (a<min) then min:=a;

 end;

 Writeln ('Минимальное число, кратное 3 в последовательности равно ', min);

End.