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.
Если все правильно, отметь решение как лучшее)
Основание 11 означает, что в системе 11 цифр: от 0 до 9 и A (10)
A9A, следующее за ним - A9A+1 = AA0, за ним AA0 + 1 = AA1 и т.д.:
A9A, AA0, AA1, AA2, AA3,
AA4, AA5, AA6, AA7, AA8,
AA9, AAA, 1000, 1001, 1002,
1003, 1004, 1005, 1006, 1007
ПО это Программное Обеспечение. Его установка запрашивается при установке игры, потому что то ПО что с ней устанавливается является оптимальным для нее (по мнению разработчиков).
===== PascalABC.NET =====
begin
var a := ArrRandomReal(20, 100, 200);
a.Println
end.
Я не знаю но думаю если кря кря
