Var k, m, day: integer;
Dat: array[1..7] of integer;
Begin
Dat[1]:=7; Dat[2]:=9;
Dat[3]:=10; Dat[4]:=8;
Dat[5]:=6; Dat[6]:=7;
Dat[7]:=6;
day:= 1; m:=Dat[1];
for k:=2 to 7 do begin
if Dat[k] < m then begin
m:=Dat [k]; day:=k
end
end
write(day);
End.
sdsdf:
В чём суть задания?
понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего
алгоритма
Ответы
Ответ дал:
0
в результате выполнения данной программы будет напечатано число 5
Вас заинтересует
1 год назад
1 год назад
7 лет назад