блин, напиши плз чего тут нехватает. чтобы правильно работала или что надо заменить или добавить ?
ПЛЛЛЛЗЗЗЗЗ УМОЛЯЮ
Вычислить сумму элементов одномерного массива расположенных до первого встреченного числа кратного 3.
for i:=1 to n do begin
writeln('Введите ',i,'-ый элемент'); readln(a[i]);
end;
i := 1; s := 0;
while (i <= n) and ((a[i] mod 3) <> 0) do begin
S := S+a[i];
i := i + 1;
end;
writeln('сумма элементов =', S:2);
СПС ОГРОМНОЕ всё работает