Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Есл...

July 2022 2 16 Report

Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если оно не существует, выведите фразу "not found". Сделать в паскаль

karicha2000 Var
    a: array[1..4] of integer;
    i, max: integer;

begin
    for i := 1 to 4 do
        readln(a[i]);

    max := a[1];
    for i := 1 to 4 do
        if (a[i] mod 2 = 0) and (a[i] >= max) then
            max := a[i];

    if max mod 2 = 0 then
        writeln(max)
    else
        writeln('not found');
end.

0 votes Thanks 0

Aillianna

Verified answer

Var a:array[1..4] of integer;
i,max:integer;
b:boolean;
begin
b:=false;
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=1 to 4 do
if (not odd(a[i])) and (a[i]>=max) then begin
max:=a[i];
b:=true;
end;
if b then write('',max) else write('not found');
end.

1 votes Thanks 0

Answers & Comments

Verified answer

zapishi 84 v vide beskonechnoj desyatichnoj periodicheskoj drobi

najdi poslednyuyu cifru chisla 2489

otkuda u zebry poyavilis belye poloski

sluchajnaya velichina x zadana plotnostyu veroyatnosti

minimalnaya edinica raboty vypolnyaemoj processorom nazyvaetsya vyberite odin o

skolko sushestvuet naturalnyh chisel menshih 110 i delyashihsya na 251e0d69260029c36aceb05ba83414c18 46224

skolko sushestvuet naturalnyh chisel menshih 12 i delyashihsya na 2

skolko sushestvuet naturalnyh chisel menshih 50 i delyashihsya na 2

reklamnyj graficheskij blok pomeshaemyj na web stranice i imeyushij giperssylku na

sostavit uravnenie pryamoj parallelnoj pryamoj y3x7 i prohodyashej cherez tochku

рекомендуемые вопросы

Helpful Links

Helpful Social