Вычислить значения обработки массива
var k, m, day: integer;
Dat: array[1..10] of integer;
Begin
Dat[1]:=2; Dat[2]:=2; Dat[3]:=3; Dat[4]:=3; Dat[5]:=4; Dat[6]:=4; Dat[7]:=5; Dat[8]:=5; Dat[9]:=6; Dat[10]:=6;
day:=1; m:=Dat[1];
for k:=2 to 10 do
if Dat[k]>= m then
begin
m:=Dat[k];
day:=k;
end;
write(day);
end.
120
443
Ответы на вопрос:
Популярно: Информатика
-
26090204A24.11.2022 05:35
-
Прша10.05.2022 12:27
-
Катаріна1223.09.2020 09:41
-
семенггвп06.11.2021 23:26
-
ilya48207.02.2021 00:09
-
RedSakura07.06.2021 12:51
-
sashapustoxin07.02.2021 09:36
-
viktoria38809.05.2022 22:35
-
SleepCat1202.01.2020 00:40
-
wasuablezko23.07.2021 08:19