procedure change(var a: mas; n: integer);
i:
integer;
begin
for i := 1 to n do
if not odd(i) then
a[i] := 1;
end;
Похожие записи/страницы:
- Составить программу: для замены в массиве Y(50) всех элементов с четными индексами на значение 1.- Pascal(Паскаль)
- Считать значения вектора V[1:24] из внешнего файла. Если среднеарифметическое значение элементов с четными…
- Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном…
- Дан одномерный массив Y. Найти второй элемент, значение которого по модулю >5. Сделать инверсию исходного…
- Написать программу замены всех отрицательных элементов в массиве 4x5 заполненном с клавиатуры на их абсолютные…
- Дана строка. Преобразовать все строчные1|прописные2 латинские3|русские4 буквы в прописные1|строчные2 - Pascal(Паскаль)
- В одномерном массиве С, состоящем из N вещественных элементов, вычислить произведение элементов массива с…
- В заданной матрице A(N, M) поменять местами строки с номерами P и Q (1