Определить информационный объём сообщения «автогонки состоятся на ипподроме 20.05.17 в 21.00»
118
400
Ответы на вопрос:
Эта автоматически тебе всё сделает.var i, n, max : integer; a : array [1..30] of integer; begin for i : = 1 to 30 do begin write('a[', i, ']='); a[i]: =i+1; if max< a[i] then max: =a[i]; writeln(a[i]); end; writeln('максимальный элемент равен: ',max); end. если нужно будет ввести последовательность с клавиатуры, то вот: var i, n, max : integer; a : array [1..30] of integer; begin for i : = 1 to 30 do begin write('a[', i, ']='); readln (a[i]); if max< a[i] then max: =a[i]; end; writeln('максимальный элемент равен: ',max); end.
Популярно: Информатика
-
LuсКу11.11.2021 17:09
-
гоша21025.12.2022 09:19
-
leon8820.01.2020 04:47
-
ErnurNick30.12.2020 22:50
-
fainanem24.11.2022 19:07
-
anastasia10644425.05.2021 10:59
-
Валентинаг867559702.02.2020 17:48
-
максим171819.03.2021 05:09
-
НацуЛюси11.02.2020 13:32
-
ПрохладныйВетер10.03.2020 23:32