В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Alenadobro97
Alenadobro97
22.05.2022 15:38 •  Информатика

Водномерном массиве а, состоящем из 12 целых чисел, все положительные элементы заменить пятеркой.

Показать ответ
Ответ:
star1k
star1k
26.05.2020 00:15

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.

Если все правильно, отметь решение как лучшее)

    

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота