Решите:дан массив из N целых элементов. замените четные элементы массива на число 10
5-9 класс
|
var
a:array[1..9999] of integer;
n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i] mad 2 = 0 then a[i]:=10;
end;
for i:=1 to n do
write(a[i],' ');
end.
Надеюсь на Лучший ответ
Другие вопросы из категории
Для носителей типа В сделали полные образы (файлы, объем которых строго равен максимальному объему носителя). Вычислите максимальное количество образов носителей типа В, данные которых можно полностью записать на два носителя типа А (образы не могут быть разбиты на части или сжаты). В ответе укажите целое число.
Задания внутри
Сделать только №2,3,5,7
символ кодируется 8 битами
80 кБайт
640 байт
80 байт
10 кБайт
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.