Информатика

Наркисса

6 сентября, 01:38

Cрочно! паскаль

var m, k, i; integer;

mas; array [1 ... 10] of integer;

begin

mas[1]:=14; mas[2]:=44; mas[3]=72;

mas [4]:=36; mas[5]:=58; mas[6]:=57; mas[7]:=48; mas[8]:=91; mas[9]:=62; mas[10]:=45; k:=0

for i:=1 to 10 do

if (m>5) and (m mod 20) then k:=k+m

else

if m mod 2=0then k:=k+m

end;

write (k)

end.