Koks74

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

пжл помогите

Koks74

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

Koks74

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

Koks74

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

Koks74

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

TaRaKaN

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[i]:=-20+random(71);
write(A[i]:4);
end;
writeln;

i:=N;
ppk3:=99;
repeat
if (A[i]>0) and ((A[i] mod 3)=0) then
ppk3:=A[i] 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[i])>abs(A[i-1])) and (A[i]<0) then max:=i;
writeln('element pod nomerom' max 'zamenen nulem');
for i:=1 to N do write(A[i]:4);
writeln;

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

readln;
END.

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