1) что будет выведено на экран после выполнения фрагмента программы
2) найти значения переменной m

1. 1

2. 30

Объяснение:

1. До проверки . Условие "" не выполняется, поэтому выполняется выражение .

2. До проверки . Условие "" не выполняется, поэтому выполняется выражение . Теперь . В конце выполняется "", то есть .

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

(неясно-пиши в личку)