Задача на Паскаль:

Даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.

var

i: integer;

m: array [1 ... 3] of integer;

begin

writeln ('Введите три числа: ');

for i : = 1 to 3 do

begin

read (m[i]);

if odd (m[i]) then write ('Число нечетно: ', m[i] * 2)

else write ('Число четно: ', m[i]);

writeln;

end;

end.

Если просят найти среднее арифметическое, то формула (a+b+c) / 3.

Если не наибольшее и не наименьшее из трёх, то

if ((a c)) then b

else if ((b a)) then c

else a;

Предполагается, что a b c.