Предмет: Информатика, автор: zlayazaya22

Вопрос

Опреде лите, что будет напечатано в результате выполнения программы:
Program mas6;

Var k, m: integer;
Dat: array[1..10] of integer;

Begin
Dat[1]:= 1; Dat[2]:= 9;
Dat[3]:= 6; Dat[4]:= 5;
Dat[5]:= 4; Dat[6]:= 2;
Dat[7]:= 0; Dat[8]:= 8;
Dat[9]:= 4; Dat[10]:=19;
m := 0;
for k := 5 to 9 do
if Dat[k] > m then
begin
m := Dat[k]
end;
writeln(m);
End.


magisterobivan: А что, тупо запустить и проверить не выходит?
zlayazaya22: нет

Ответы

Автор ответа: Аноним
0

Ответ: 8

Program mas6;

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1]:= 1; Dat[2]:= 9;  // Задаётся массив из 10 элементов

Dat[3]:= 6; Dat[4]:= 5;

Dat[5]:= 4; Dat[6]:= 2;

Dat[7]:= 0; Dat[8]:= 8;

Dat[9]:= 4; Dat[10]:=19;

m := 0;

for k := 5 to 9 do  // пробегают элементы с 5-ого по 9-ый

if Dat[k] > m then  //ищут максимальный элемент в цикле(с 5 по 9)

begin

m := Dat[k]

end;

writeln(m);  // Выводят максимальный найденный элемент

End.

Объяснение:

Похожие вопросы
Предмет: Математика, автор: seitova01
Предмет: Математика, автор: LPSStudio17