Question

паскаль. Что выдает? 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
m := m + Dat[k] ;
writeln (m) ;
end.

Answer 1

Ответ:  11

Объяснение:

Дан массив. Данная программа считает сумму тех элементов массива

которые меньше 4.

То есть:

Dat[4]+Dat[5] +Dat[6] +Dat[10]=3+2+3+3=11