Помогите, пожалуйста с программированием!
1.Из массива Р, содержащего 10 элементов, сформировать массив Т по правилу:
a. Т(к)=к*Р(к), где к – чётные, Т(к)=Р(к)/к, где к – нечётные.

2. В массиве, содержащем 10 элементов, умножить на заданное число максимальный отрицательный элемент.

Вопрос школьника по предмету Информатика

Помогите, пожалуйста с программированием!
1.Из массива Р, содержащего 10 элементов, сформировать массив Т по правилу:
a. Т(к)=к*Р(к), где к – чётные, Т(к)=Р(к)/к, где к – нечётные.

2. В массиве, содержащем 10 элементов, умножить на заданное число максимальный отрицательный элемент.

Ответ учителя по предмету Информатика

var p,t: array [1..10] of real;

k:integer;

begin

for k:=1 to 10 do

readln( p[k]);

for k:=1 to 10 do begin

if k mod 2=0 then t[k]:=k*p[k];

if k mod 2=1 then t[k]:=p[k]/k;

end;

for k:=1 to 10 do

writeln (p[k]);

end.