Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2. Заранее спасибо
Помогите создать программу, чтобы нашло максимальное отрицательное число кратное 2. Заранее спасибо
Гость
Ответ(ы) на вопрос:
Гостьprogram z123;
var i,a,n,c:integer;
begin
c:=0;
write ('введите, сколько чисел будет всего');
readln (n);
for i:=1 to n do
begin
readln (a);
if a mod 2 = 0 then
if a
Не нашли ответ?
Похожие вопросы