дан массив из n элементов. в нем четные числа заменить на 0, а нечетные на -1 ,вывести на экран монитора содержимое массива до обработки и после обработки
5-9 класс
|
const n = 5; // задаем количество элементов массива(например 5)
var
a: array [1..n] of integer;
i : integer;
begin
for i:= 1 to n do
writeln(a[i]);// вывод исходного массива
for i:= 1 to n do
begin
if a[i] mod 2 = 0 then a[i] := 0 else a[i] := -1;// замена четных и нечетных элементов writeln(a[i]); // вывод нового массива
end;
end.
Другие вопросы из категории
ПОЖАЛУУЙСТА ПОМОГИТЕ
-Прибавьте к ним 25.
-К ответу прибавьте ещё 125.
-Из ответа вычтите 36
-Из ответа вычтите эти задуманные числа.
-Ответ умножьте на 5.
-ответ разделите на 2.
ПОжалуйста помогите. Мне срочно надо
Заранее спасибо.
спорта. Майкл предпочитает баскетбол и играет лучше, чем американец. Израильтянин Саймон играет лучше теннисиста. Игрок в крикет занял первое место. Кто является австралийцем? Каким спортом увлекается Ричард?
c := 0
нц пока b <> 10
c := c + b
b := b + 1
кц
вывод c
желательно с обьяснением
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
10-му элементу присвоить значение 13. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
значение предыдущего,при этом первому элементу должно присвоиться значение последнего элемента таблицы. Вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом).
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.