Ростислав
6 год назад
Напишите программу, которая в последовательности натуральных чиселопределяет минимальное число четное число. Программа получает на входколичество чисел в последовательности, а затем сами числа. Количествочисел не превышает 1000. Введённые числа не превышают 20 000Пожалуйста Пожалуйста посчитайте.
ОТВЕТЫ
Emil
Oct 24, 2020
Var A:array[1..1000] of integer;
n,m:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Read(A[n]);
if A[n] mod 2 = 0 then m:=A[n];
End;
For n:= 1 to n do
if (A[n]<m)and(A[n] mod 2 = 0) then m:=A[n];
WriteLn('Минимальное чётное: ',m);
End.
n,m:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Read(A[n]);
if A[n] mod 2 = 0 then m:=A[n];
End;
For n:= 1 to n do
if (A[n]<m)and(A[n] mod 2 = 0) then m:=A[n];
WriteLn('Минимальное чётное: ',m);
End.
198
Смежные вопросы:
