решите все подробно пожалуйста
var k, m: integer;
Dat: array[1..10]
of integer;
begin
Dat[1] := 45; Dat[2] := 55;
Dat[3] := 40; Dat[4] := 15;
Dat[5] := 20;. Dat[6] := 80;
Dat[7] := 35; Dat[8] := 70;
Dat[9] := 10; Dat[10] := 45;
m:= Dat[1];
for k:= 4 to 10 do begin
if Dat[k] >= Dat[1] then
begin
m:= m + Dat[k]
end
end;
write(m);
end.
var k, m: integer;
Dat: array[1..10]
of integer;
begin
Dat[1] := 45; Dat[2] := 55;
Dat[3] := 40; Dat[4] := 15;
Dat[5] := 20;. Dat[6] := 80;
Dat[7] := 35; Dat[8] := 70;
Dat[9] := 10; Dat[10] := 45;
m:= Dat[1];
for k:= 4 to 10 do begin
if Dat[k] >= Dat[1] then
begin
m:= m + Dat[k]
end
end;
write(m);
end.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
m = 45, дальше идёт обработка массива Dat от 4 до 10
Если Dat[k] > Dat[1] тогда m будет прибавлять в себя этот элемент массива
Dat[4] = 15, условие ложно цикл идет дальше
Dat[5] = 20, условие ложно, цикл идет дальше
Dat[6] = 80, условие истинно, m= 45+45=90, цикл идет дальше
Dat[7] = 35, условие ложно, цикл идет дальше
Dat[8] = 70, условие истинно, m = 90+45=135, цикл идет дальше
Dat[9] = 10, условие ложно, цикл идет дальше
Dat[10] = 45 условие истинно, m = 135 + 45 = 180, цикл завершен
Вывод m (180)
Ответ: 180