В одномерном массиве А, состоящем из 12 целых чисел, все положительные элементы заменить - №998240

В одномерном массиве А, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.
- Предмет:
  Информатика
- Автор:
  brooklynnjhzg
- 6 лет назад

Ответы 1

var

A: array [1..12] of integer; //Одномерный массив из 12 целых чисел

i: integer;

begin

for i:= 1 to 12 do //Вводим элементы массива с клавиатуры

begin

writeln('Введите A[', i, ']');

readln(A[i]);

end;

write('Исходный массив: '); //Выводим исходный массив

for i:= 1 to 12 do

write(A[i], ' ');

writeln; //Перевод на новую строку

write('Измененный массив: ');

for i:= 1 to 12 do {Изменяем все положительные элементы на 5 и распечатываем полученный массив}

begin

if A[i] > 0 then A[i]:= 5;

write(A[i], ' ');

end;

writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

Если все правильно, отметь решение как лучшее)
- Автор:
  anna61
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years