Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var
flag : boolean;
i, s : integer;
a : array [1..20] of integer;
begin
for i := 1 to 20 do read (a[i]);
s := 0; flag := false;
for i := 1 to 20 do
if flag then s := s + a[i]
else if a[i] 0 then flag := true;
writeln (s);
end.