Задание 3.
В таблицe Dat хранятся отметки учащихся 9 класса за самостоятельную
работу Определите, какое число будет напечатано в результате работы
следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat [1] := 4; Dat (2) := 5;
Dat (3) := 4; Dat [4] := 3;
Dat (5) := 2; Dat [6] := 3;
Dat [7] := 4; Dat (8) := 5;
Dat [9] :=5; Dat [10] :=3;
m := 0;
for k := 1 to 10 do
if Dat[k] < 4 then
begin
m:= m + Dat[k];
end;
writeln (m);
End.

Ответ:

будет напечатано число 3+2+3+3=11