Был на свете человек он был обичный как все любил призидента и был нормальным но один раз когда он пошоо гулять с друзьями он упал в яму наткнувшись на блок он кго тронул и о него было видение потом его нашли копы работающие на призедента они розказали ему что Президент взорвет мир и только он мон мир с блока его хотели питать но пришел парень который его началась погоня и парень понял (его звали Дикарь) что человек (он де Эммет) не избранный продалдалась погоня и коп вистрельнул в Эммета пушкой (котороя не взривала а прилипила жучка) Коп их стрелял но бэтмен их они полетели в Заоблачную даль К другим крутим людям которие б им мир но из-за жучка прилетели копы и взорвали Заоблачную даль всех посадили в тюрмю но банда Эммета уцелела они пошли к Президенту гле их ожидали и словили все билы без но Эммет вибралса гле подертвовал собой для других и они закончили то что Эммет начал надавали люлей Президенту и копам и мир не взорвался а Эммет вижил! Конец!
Const n=20; var p:array[1..n] of integer; i,k,s:integer; begin Randomize; Writeln('Последовательность чисел'); for i:=1 to n do begin p[i]:=Random(51)-25; Write(p[i],' ') end; Writeln; k:=0; s:=0; i:=1; repeat if p[i]>0 then begin s:=s+p[i]; Inc(k) end; Inc(i); until (k=4) or (i>n); Writeln('Сумма первых четырех положительных чисел равна ',s) end.
Тестовое решение: Последовательность чисел -12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14 Сумма первых четырех положительных чисел равна 41
Коп их стрелял но бэтмен их они полетели в Заоблачную даль
К другим крутим людям которие б им мир но из-за жучка прилетели копы и взорвали Заоблачную даль всех посадили в тюрмю но банда Эммета уцелела они пошли к Президенту гле их ожидали и словили все билы без но Эммет вибралса гле подертвовал собой для других и они закончили то что Эммет начал надавали люлей Президенту и копам и мир не взорвался а Эммет вижил!
Конец!
n=20;
var
p:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
Writeln('Последовательность чисел');
for i:=1 to n do
begin
p[i]:=Random(51)-25;
Write(p[i],' ')
end;
Writeln;
k:=0; s:=0; i:=1;
repeat
if p[i]>0 then begin s:=s+p[i]; Inc(k) end;
Inc(i);
until (k=4) or (i>n);
Writeln('Сумма первых четырех положительных чисел равна ',s)
end.
Тестовое решение:
Последовательность чисел
-12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14
Сумма первых четырех положительных чисел равна 41