Предмет: Информатика,
автор: 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:
А что, тупо запустить и проверить не выходит?
Ответы
Автор ответа:
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
Предмет: Математика,
автор: FILNAME1
Предмет: Алгебра,
автор: Kipeshnik
Предмет: Математика,
автор: Единарог11111