Var s, i: integer; Mas:array[1..10] of integer;

Begin

Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6;

Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7;

Mas[9]:=5; Mas[10]:=3; s:=0;

for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];

for i:=1 to 10 do

if Mas[i]>0 then s:=s+Mas[1];

write(s)

End.



решение с пояснением
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.