5. Найти сумму следующей последовательности а1 а2 а3 … аn, где n – количество элементов, задаваемых пользователем

извини ..сам потом не увидел ..с фор я и сам решил

а вот while не фига не могу

изменил решение, теперь через while)

спасибо ))большое !!!!!!

Одномерные массивы: Составить программу, заполняющую массив, состоящий из N элементов, введенными с клавиатуры целыми числами. Требуется вывести массив на экран компьютера и найти индекс последнего по счету в массиве отрицательного элемента

var a:array [1..999] of real;c:real;n,i:integer;beginwrite ('Введите кол-во элементов: ');readln(n);c:=0;i:=1;while i<=n dobeginwrite ('Введите ',i,' элемент: ');readln (a[i]);c:=c+a[i];i:=i+1;end;writeln ('Сума ',n,' элементов = ',c);end.