Паскаль. Задачи на массивы

[Koks74]

Паскаль. Задачи на массивы

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

пжл помогите

 

[Koks74]

1. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.

 

[Koks74]

1. Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.
помогите пжл. в Паскале только

 

[Koks74]

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

 

[Koks74]

пжл помогите. оч нужно :tehnari_ru_942:

 

[TaRaKaN]

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

пжл помогите

CONST
N=30;

VAR
A:array[1..N] of integer;
i,ppk3,max: integer;

BEGIN
clrscr;
randomize;
for i:=1 to N do
begin
A:=-20+random(71);
write(A:4);
end;
writeln;

i:=N;
ppk3:=99;
repeat
if (A>0) and ((A mod 3)=0) then
ppk3:=A else i:=i-1;
until ppk3<>99;
writeln('posledniy polo}|{itelniy element kpatniy 3' ppk3:4);

i:=1;
max:=1;
for i:=2 to N do
if (abs(A)>abs(A[i-1])) and (A<0) then max:=i;
writeln('element pod nomerom' max 'zamenen nulem');
for i:=1 to N do write(A:4);
writeln;

write('vse indeksi otricatelnih elementov:');
for i:=1 to N do
if A<0 then writge(i:3);
writeln;

readln;
END.

Перед тем как сдавать код лучше проверить его на работоспособность. Я не проверял.