program Number3;
var
A: array [1..3] of Integer; // массив для трех чисел
i, c, s: Integer;
begin
WriteLn ('Введите три числа: ');
Read (A [1], A [2], A [3]); // Ввод трех чисел с клавиатуры
c := 0;
for i := Low (A) to High (A) do begin // подсчет количества положительных чисел
if A [i] > 0 then
c := c + 1;
end;
if c >= 2 then begin // если положительных хотя бы 2, то
WriteLn ('Новые значения чисел: ');
for i := Low (A) to High (A) do begin
if (A [i] mod 2) > 0 then // увеличиваем нечетные на 1
A [i] := A [i] + 1;
Write (A [i], ' '); // выводим их на дисплей
end;
end else begin
s := 0;
for i := Low (A) to High (A) do // находим сумму
s := s + A [i];
WriteLn ('Сумма всех чисел = ', s); // выводим сумму на дисплей
end;
ReadLn;
ReadLn;
end.
Объяснение: комментарии к программе
8
данные числа целые.