Массивы. Паскаль

Данелия · 17.05.2016, 08:16

Помогите решить !!!
1. Одномерный массив А длиной N<=40 заполнить случайными числами из диапазона [–20..50]. Составить программу:
• определить последний положительный элемент массива кратный 3-м;
• заменить максимальный по модулю отрицательный элемент нулем;
• найти все индексы отрицательных элементов массива.
2. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

AlexZir · 17.05.2016, 08:35

заполнение массива случайными числами из диапазона:

Код:

for i:=1 to n do
a[i]:=random(71)-20;

Условие, чтобы определить последний положительный элемент массива кратный 3-м

Код:

if (a[i]>0) and (a[i] mod 3=0) then ...

Цитата:

Сообщение от Данелия

найти все индексы отрицательных элементов массива.

Код:

if a[i]<0 then writeln(i);

Цитата:

Сообщение от Данелия

заменить максимальный по модулю отрицательный элемент нулем;

Код:

max:=0;
.....
if (a[i]<0) and (abs(a[i])>max) then max:=abs(a[i]);

этот код можно реализовать при помощи поиска наименьшего отрицательного числа, но раз уж в задании был упомянут модуль...

Цитата:

Сообщение от Данелия

2. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

алгоритм простой сортировки, в сети тьма тьмущая примеров реализации.

17.05.2016, 08:16	#1 (permalink)
Данелия Новичок Регистрация: 16.05.2016 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Массивы. Паскаль Помогите решить !!! 1. Одномерный массив А длиной N<=40 заполнить случайными числами из диапазона [–20..50]. Составить программу: • определить последний положительный элемент массива кратный 3-м; • заменить максимальный по модулю отрицательный элемент нулем; • найти все индексы отрицательных элементов массива. 2. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо.

17.05.2016, 08:16
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Стоит отметить, что ваш топик аналогичен с этими топиками, по этому хорошо было бы прочитать их содержимое Массивы. Паскаль Массивы. Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070