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.

Question

Ненила

22 октября, 15:32

+1

Ответы (1)

Знаете ответ на вопрос?

Домника · Answer 1

Так как сначала m = 0 и k = 0 то выведет тоже 0, так как конструкция k + m всегда возвращает 0