Берілгені: А(10) массиві берілген. Бірінші нөл элементіне дейінгі оң элементтердің қосындысы мен санын табу.

Басы

Берілгені: А(10) массиві берілген. Бірінші нөл элементіне дейінгі оң элементтердің қосындысы мен санын табу.

Енгізу a[i]

i<=1

жоқ

S:=0; k:=0;

иә

a[i]=0

иә жоқ

k:=i;

i:=i+1;

Break;

i:=1;

i<=k;

Шығару (s)

s=s+a[i];

иә жоқ

Соңы

i:=i+1;

1) Program Guldana;

2) Var a:array[1..10] of integer;

3) i,k:integer;

4) s:real;

5) begin

6) writeln(‘vvod’);

7) for i:=1 to 10 do

8) read(a[i]);

9) s:=0; k:=0;

10) for i:=1 to 10 do

11) if a[i]=0 then

12) begin

13) k:=i;

14) break;

15) end;

16) for i:=1 to k do

17) begin

18) if a[i]>0 then

19) s:=s+a[i];

20) end;

21) writeln(‘s=’,s:3:3);

22) end.

Дата добавления: 2015-11-04