var
A: array [1..12] of integer; //Массив, состоящий из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива
begin
writeln('Введите А[', i, ']');
readln(a[i]);
end;
write('Исходный массив: ');
for i:= 1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]:= 5;
end;
writeln;
write('Измененный массив: ');
for i:= 1 to 12 do //Распечатываем измененный массив
write(a[i], ' ');
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)
var
a, b, c: real; {a и b - вводимые с клавиатуры числа, c - буферная переменная, которая будет содержать значение переменной a}
begin
writeln('Введите 2 числа');
readln(a, b); //Вводим числа
c:= a;
if a < b then {Если a < b, то заменяем а на среднее арифметическое этих чисел, b - на произведение этих чисел и распечатываем их}
begin
a:= (a + b) / 2;
b:= c * b;
writeln('a < b => a = ', a, ', b = ', b);
end;
if b < a then {Если b < a, то заменяем а на произведение чисел, b - на среднее арифметическое чисел}
begin
a:= a * b;
b:= (c + b) / 2;
writeln('b < a => a = ', a, ', b = ', b);
end;
if a = b then writeln('Числа равны'); {Числа числа равны, то печатаем сообщение об этом}
end.
Если все правильно, отметь решение как лучшее)
