ПЛЛЛЛЗЗЗЗЗ УМОЛЯЮ
Вычислить сумму элементов одномерного массива расположенных до первого встреченного числа кратного 3.
Код
Program P1
usescrt;
const
n=10;
type
mas=array[1..n] of integer;
var
a:mas;
i:byte;
S:integer;
BEGIN
clrscr;
for i:=1 to n do
begin
writeln('Введите ',i,'-ый элемент');
readln(a[i]);
end;
if a[i] mod 3=0 then
S:=0;
for i:=1 to a[i] do
begin
S:=S+a[i];
end;
writeln('сумма элементов =',S:2);
readln;
END.