Помогите пожалуйста!1. Найти индексы тех элементов массива, элементы которых равны...

Question

Помогите пожалуйста!
1. Найти индексы тех элементов массива, элементы которых равны последнему элементу массива из 30 элементов заданных случайным образом числами от -5 до 15.
2. Увеличить все четные элементы массива на K.

Answer 1

Var
a: array [1..30] of integer;
i, k: integer;
begin
write('k = ');
readln(k;)
for i:=1 to 30 do
begin
a[i]:=random(21)-5;
writeln('a[', i, '] = ', a[i]);
end;
for i:=1 to 30 do
begin
if a[i]=a[30] then write(i, ' ');
if a[i] mod 2 = 0 then a[i]:=a[i]+k;;
end;
end.