Rambler's Top100

Скачать программы    Все программы автора

Задание № 27

Найти значение и номер наибольшего элемента в массиве из 10 целочисленных элементов.

 

program mas4;

var n,m,i: integer;

a: array[i..lO] ofinteger; begin

for i:=l to 10 do

begin

writeln('Введите элемент массива');

readln(a[i]);

end;

writeln('Элeмeнты исходного массива');

for i:=l to 10 do

write(a[i], ' ');

writeln;

m:=a[l];

n := 1;

for i:=2 to 10 do ifa[i]>m then

begin

m := a[i];

n:= i;

end;

writeln('Максимальный элемент равен', m, 'и имеет порядковый номер', n);

end.

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz