Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

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

10-11 класс

Vputilina2014 30 дек. 2014 г., 10:33:46 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Dididi2003
30 дек. 2014 г., 11:30:54 (9 лет назад)

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. 

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

Ответить

Другие вопросы из категории

Что такое список указателей?
УМОЛЯЮ,ПОМОГИТЕ С ПАСКАЛЕМ

1)
Вычислить оптимальный вес по формуле рост-100 (фактический вес V и рост H вводятся пользователем) и выдать одно из сообщений:
- у вас идеальный вес;
- вам нужно похудеть на n кг (n вывести);
- вам нужно поправиться на n кг (n вывести).
2)Составить программу, которая бы по последней цифре многозначного числа выдавала бы одно из сообщений:
число не делится ни на 2, ни на 5
число делится только на 2
число делится только на 5
число делится и на 2, и на 5.


Читайте также

Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых

чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.

В одномерном массиве B, состоящем из 20 вещественных чисел, найтинаибольший элемент и указать его номер в массиве.

Составить схему алгоритма и программу на языке программированияBasic для решения задачи по обработке одномерного массива.

1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и

положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.



Вы находитесь на странице вопроса "В одномерном массиве А, состоящем из 12 целых чисел, все положительные четные элементы заменить пятеркой.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.