Question

напишите программу которая в последовательности натуральных чисел определяет минимальное число кратное 3.знаю как написать программу для максимального числаvara:integer;b:longint;beginb:=0;readln(a);while (a<>0) dobeginif ((a mod 3=0) and (a>b)) thenb:=a;readln(a);end;writeln(b);readlnend.как для минимального??

Answer 1

В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной 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.