22.12.2009, 22:15 | #11 (permalink) |
Member
Регистрация: 27.01.2008
Сообщений: 237
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
var a:array [1..n] of integer; i:integer; max:integer; begin for i:=1 to n do begin read(a[i]); end; max:=a[1]; if a[i]>max then max:=a[i]; writeln('максимальный элемент массива =',max); end. ---------- Добавлено в 21:33 ---------- Предыдущее сообщение было написано в 21:32 ---------- ZONDO, в этой программе нужно вводить элементы массива, если нужно я напишу, когда элементы вводятся автоматически. ---------- Добавлено в 21:37 ---------- Предыдущее сообщение было написано в 21:33 ---------- да и еще если нужно ввести элемент n, то перед var нужно указать значение const, например const =2 ---------- Добавлено в 22:15 ---------- Предыдущее сообщение было написано в 21:37 ---------- извинияюсь, вот так const n=2 |
22.12.2009, 22:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что данный список должен вам помочь Хочу MP3 установить на скутер, а к MP3 надо сделать колонки Собираюсь сделать жучок, нужна помощь Музыка на скутер Стоит ли брать? Собираюсь поменять процессор |
22.12.2009, 22:53 | #12 (permalink) |
Member
Регистрация: 16.02.2009
Сообщений: 2,049
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 129
|
спасибо, я тут вспомнил еще-мне надо сделать массив еще вторым способом т.е. через random...тут ваще тьма для меня , если не трудно,напишите ещё этим способом)
|
23.12.2009, 11:27 | #13 (permalink) |
Member
Регистрация: 27.01.2008
Сообщений: 237
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
program kk;
var a:array [1..n] of integer; i:integer; max:integer; begin for i:=1 to n do begin a[i]:=random(100); write(a[i], ' '); end; max:=a[1]; if a[i]>max then max:=a[i]; writeln('максимальный элемент массива =',max); end. ---------- Добавлено в 11:27 ---------- Предыдущее сообщение было написано в 11:27 ---------- вот с random |
24.12.2009, 00:47 | #14 (permalink) |
Member
Регистрация: 16.02.2009
Сообщений: 2,049
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 129
|
93 25 65 9 6 54 84 10 45 60 2 36 33 56 19 94 58 24 26 72 23 максимальный элемент массива =36
77 78 90 52 26 44 28 73 94 54 15 88 9 75 80 6 63 91 21 0 28 максимальный элемент массива =88 72 33 3 53 62 89 70 93 9 94 61 41 28 27 22 62 61 51 80 57 82 максимальный элемент массива =82 выводит явно не макс.элемент, в чём ошибка??? |
24.12.2009, 06:08 | #15 (permalink) |
Member
Регистрация: 27.01.2008
Сообщений: 237
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
program kk;
var a:array [1..n] of integer; i:integer; max:integer; begin for i:=1 to n do begin a[i]:=random(100); write(a[i], ' '); end; max:=a[1]; for i:=1 to n do begin if a[i]>max then max:=a[i]; end; writeln('максимальный элемент массива =',max); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|