Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 138076
27.05.2008, 13:53
0.00 руб.
0 2 2
Компьютеры Программирование
С клавиатуры вводиться одномерный массив А, размерностью n. Найти максимальный элемент данного массива. Ввод и вывод элементов оформить в виде процедуры.

Обсуждение

Неизвестный
27.05.2008, 14:32
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!

Решение задачи в приложении.
n кол-во эл-ов массива, можете задать любое на Ваш выбор, у меня 10.
В первой процедуре (wwod) заполняем массив.
Во второй процедуре (maxwiwiod) ищем максимальный эл-т и выводим его.
Программа работает только с целыми числами.
Надеюсь помог.

Удачи.


Приложение:
program mass;const n = 10; {кол-во элементов массива}vara : array [1..n] of integer;max : integer;procedure wwod;vari : integer;beginfor i := 1 to n do begin writeln(‘Введите ‘, i, ‘ элемент.‘); readln(a[i]); end;end;procedure maxwiwod; {ищем максимальный и выводим результат}vari : integer;beginmax := a[1]; {присваиваем первый эл-т масива}for i:= 2 to n do if max < a[i] then max := a[i];writeln(‘Максималный эл-т = ‘, max);end;beginwwod;maxwiwod;readln;end.
Неизвестный
27.05.2008, 16:58
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!
Программа в приложении ....
Удачи)))

Приложение:
constn=100;VarM:array[1..n] of integer;Procedure Vvod;var I:integer;begin For I:=1 to n do Begin Write(‘Елемент №: ‘,i,‘ =‘); Readln(m[i]); end;end;Procedure Vuvod;var i,Temp:integer;Begintemp:=m[1]; For i:=2 to n do if temp<m[i] then temp:=m[i];Writeln(‘Максимальный элемент‘);end;BeginVvod;Vuvod;Readln;end.
Форма ответа