Одномерные массивы в тубро делфи

[delegate]

Прошу помощи в написании массива, задаине звучит следующим образом:
Вычислить сумму квадратов чисел, больших заданного С, и количество неположительных чисел, стоящих на местах, кратных 4.
буду благодарен каждому ко откликнется на прозьбу.

[Mad_Cat]

k:=0;s:=0;
For i:=1 to n do
begin
if a[i]>C then s:=s+a[i]*a[i];
if (a[i]<=0) and (i mod 4=0) then k:=k+1;
end;

[delegate]

а возможно написать полностью текст процедуры всей программы , вводить и выводить масив в стринггрид

[Mad_Cat]

а возможно

конечно)
контакты: