В таблице А хранятся данные о количестве учеников, опоздавших за неделю (A[1] - данные за понедельник, A[2] - за вторник и т.д).Определите, что будет напечатано в результате выполнения следующего алгоритма:Язык Pascal (Паскаль)...
В таблице А хранятся данные о количестве учеников, опоздавших за неделю (A[1] - данные за понедельник, A[2] - за вторник и т.д).
Определите, что будет напечатано в результате выполнения следующего алгоритма:
Язык Pascal (Паскаль)
var k,m,day: integer;
A:array[1...6] of integer;
Begin
A[1]:=3
A[2]:=1
A[3]:=4
A[4]:=2
A[5]:=4
A[6]:=2
day:=1;
m:=A[1]
for k:=2 to 6 do
begin
if A[k]>=m then
begin
m:=A[k];
day:=k;
end;
end;
write(day);
end.
___________________________
Напишите с обьяснением, пожалуйста ;)
Гость
Ответ(ы) на вопрос:
ГостьВо-первых, программа содержит ошибки, должно быть так:
var
k, m, day: integer;
A: array[1..6] of integer;
begin
A[1] := 3;
A[2] := 1;
A[3] := 4;
A[4] := 2;
A[5] := 4;
A[6] := 2;
day := 1;
m := A[1];
for k := 2 to 6 do
begin
if A[k] >= m then
begin
m := A[k];
day := k;
end;
end;
write(day);
end.
Эта программа отыскивает последний из дней недели, в котором количество опоздавших превысит количество опоздавших в понедельник.
Будет выдано значение 5, т.е. событие имело место в пятницу, когда опоздали четверо.
ГостьОтвет 5.............
Не нашли ответ?
Похожие вопросы