Есть ответ 👍

Паскаль. что выдает? 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.

238
247
Посмотреть ответы 2

Ответы на вопрос:


ответ:   11

объяснение:

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

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

то есть:

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

Maksikar
4,5(5 оценок)

Наверное 8 или 9 пакетов.

Популярно: Информатика