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:integer;
<span>begin </span>
<span>writeln('Введите сторону куба'); </span>
<span>readln(a); </span>
<span>writeln('Объем куба с ребром ',a,' равен — ',a*a*a); </span>
<span>writeln('Площадь поверхности куба равна — ', 6*a*a); </span>
<span>end. </span>
1. Записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. Вычесть цифры младшего разряда. Примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. Записать результат под горизонтальной чертой на вертикали единиц.
4. Повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
if n mod 2=0 then write('Четное')
else write('Не четное');