Одномерные массивы - вычисление суммы индексов положительных элементов., очень надо помогите пожалста уже неделю сижу на ней... Опции

[HumFF]

Написать программу, которая вводит с клавиатуры 25 действительных чисел, организовывает их хранение в одномерном массиве, а затем определяет число положительных элементов ланной последовательности и выводит результат... Помогите пожалуста, я уже не знаю что и делать. Да знаю, задача элементарная, но я в паскале новичок и толком ничего не знаю...

[Рустам]

Я не понял конкретно что тебе надо получить, поэтому вывел все

uses crt;        // модуль работы с экраном
const n=25;    //количество элементов в массиве
var
a: array [1..25] of integer;
i,k,j,s:  integer;

begin
clrscr;                 // очистка экрана
randomize;         // подключаем случайные числа

for i:=1 to n do
begin
a[i]:=random(20)-10;   // в цикле заполняем массив случайными числами от -10 до 9, если хочешь вручную
                                     // то вместо этого напиши read(a[i]);
write(a[i],' ');                // выводим на экран последовательность
end;

for i:=1 to n do                   
if a[i]>0 then               // если число положительное
begin
s:=s+a[i];                           // то суммируем его
inc(k);                                // увеличиваем количество
j:=j+i;                               // считаем сумму индексов
end; 
writeln;
writeln('Summa polojitelnih elementov ',s);                       // выводим
writeln('Kol-vo polojitelnih elementov ',k);
writeln('Summa indecsov polojit elementov ',j);

readln;
end.