Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Массив (http://www.tehnari.ru/f43/t43335/)

Из одномерного масива даных (2,0,4,3,6,9,5,7) найти максимальное и ввывести на экран.

Помогите решить, пожалуйста=)))

на самом деле на таких примерах учится надо начинать но все таки напишу программу

Цитата:

program massiv;
const
lmax = 20;
type
mass = array[1..lmax] of integer;
var
a: mass;
max, n, i: integer;
begin
max := -maxint;
writeln('Введите число элементов массива n от 1 до ', lmax);
repeat
read(n)
until (n > 0) and (n <= lmax);
writeln('Введите ', n, ' элемента(ов) массива');
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if a[i] > max then
max := a[i];
writeln('max=', max);
end.

Спасибо огромное=)))