Вопрос Задача на языке pascal. помогите пожалуйста через 8 часов мне сдавать ее!!!

[megafonsever]

Дан массив целых чисел, состоящий из 30 элементов. 1) Найти сумму отрицательных элементов. 2) Заменить первый отрицательный элемент нулем. 3) Удалить из него все элементы, первая цифра которых четная. 4) Вставить число k1 после всех элементов, больших заданного числа, а число k2 – перед всеми элементами, кратными 3 (k1 и k2 вводить с клавиатуры). 5) Перенести первые k элементов в конец, то есть: a[k=1], a[k+2], a[n], …, a[1], a[2],…,a[k].

 

[Mandarin]

program Task(input, output);
var
A: array[1..30] of integer;
n, i, j, k, k1, k2, sum, flag: integer;
begin
{Ввод данных}
for i := 1 to 30 do
read(A);
readln(k1, k2);

{1) Сумма отрицательных элементов}
sum := 0;
for i := 1 to 30 do
if A < 0 then
sum := sum + A;

{2) Замена первого отрицательного элемента нулем}
flag := 0;
for i := 1 to 30 do
if A < 0 then
begin
A := 0;
flag := 1;
break;
end;
if flag = 0 then
writeln('Отрицательных элементов нет');

{3) Удаление элементов с четной первой цифрой}
i := 1;
j := 1;
while i = 1 do
begin
if A > k1 then
begin
for j := n + 1 downto i + 1 do
A[j] := A[j - 1];
A[i + 1] := k1;
inc;
break;
end;
dec(i);
end;
{4.2) k2 перед всеми элементами, кратными 3}
i := 1;
while i

 

[вавы]

Хз

 

[DFEFGDFETFGEgffернкнр]

ХЗ

 

[chasaa]

Chat GPT в помощь