В одномерном массиве А, состоящем из 12 целых чисел, все положительные четные элементы заменить пятеркой.
10-11 класс
|
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.
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Составить схему алгоритма и программу на языке программированияBasic для решения задачи по обработке одномерного массива.
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.