|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2010, 11:37 | #1 |
Регистрация: 24.04.2010
Сообщений: 8
|
найти максимальный элемент одномерного массива
привет, помогите написать программу.
найти максимальный элемент одномерного массива с помощью опережающего объявления процедур. Последний раз редактировалось Серый777; 05.05.2010 в 11:39. |
05.05.2010, 16:27 | #2 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
Вот процедура поиска наибольшего элемента.
Надеюсь остальное уже сделал? Код:
Пока будущее туманно, оно в твоих руках.
|
05.05.2010, 17:49 | #3 |
Регистрация: 24.04.2010
Сообщений: 8
|
Gray_Jaggerя немогу разобраться с опережающим объявлением процедур, вот я набросал, что надо сделать в основной программе?
program op; type mas=array[1..100]of integer; var n,i:integer; ar:array[1..100] of integer; Procedure ope(a:mas);forward; procedure vnu(a:mas;var k:integer); begin readln(k); for i:=1 to k do readln(a[i]); end; procedure ope; var i,max,k:integer; begin max:=-maxint; for i:=1 to n do if max<a[i] then max:=a[i]; vnu(a,k); end; Begin |
05.05.2010, 20:17 | #4 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
Массив задается случайными числами?
если да, то должно быть так: Код:
Код:
Если необходимо, могу предоставить код любой процедуры.
Пока будущее туманно, оно в твоих руках.
|
05.05.2010, 20:54 | #5 |
Регистрация: 24.04.2010
Сообщений: 8
|
Gray_Jagger, спасибо, я сделал.
program op; type mas=array[1..100]of integer; var i:integer; ar:mas; Procedure ope(a:mas); forward; procedure vnu(var a:mas;var k:integer); var i:byte; begin writeln('vvedite k i zapolnite massiv do k'); readln(k); for i:=1 to k do readln(a[i]); end; procedure ope; var i,max,k:integer; begin vnu(a,k); max:=-maxint; for i:=1 to k do if max<a[i] then max:=a[i]; writeln(max); end; Begin ope(ar); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
одномерные массивы(C++) - Найти максимальный положительный элемент и вычислить сумму элементов массива | Scarletred | Помощь студентам | 2 | 03.04.2010 03:08 |
Максимальный элемент массива поменять местами с четвертым. | Katie | Помощь студентам | 2 | 13.01.2010 05:59 |
Массив. Найти максимальный элемент | perojenko | Помощь студентам | 6 | 22.06.2009 22:36 |
Максимальный элемент массива | j_Q | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 04.11.2008 22:48 |
В каждой строке массива выбирается максимальный элемент | sergeyfsd | Общие вопросы Delphi | 2 | 13.05.2008 00:10 |