решите все досконально пожалуйстаvar k, m: integer;Dat: array[1..10] of integer;begin Dat[1] :=
Решите все досконально пожалуйста
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] gt;= Dat[1] then
begin
m:= m + Dat[k]
end
end;
write(m);
end.
Ответ:
Объяснение:
m = 45, далее идёт обработка массива Dat от 4 до 10
Если Dat[k] gt; 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
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.