Паскаль. что выдает? 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.
ответ: 11
Объяснение:
Дан массив. Данная программа считает сумму тех элементов массива
которые меньше 4.
То есть:
Dat[4]+Dat[5] +Dat[6] +Dat[10]=3+2+3+3=11