Статистика
Всего в нашей базе более 4 324 318 вопросов и 6 439 648 ответов!

Поменять местами максимальный и первый элементы массива.

5-9 класс

В turbo pascal.

Ruha777 17 июня 2015 г., 1:40:26 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Dushez80
17 июня 2015 г., 2:42:57 (3 года назад)

const n = 100; {размер массива}

var i, k, max:integer;

      m:array [1..n] of integer;

 

begin

for i:=1 to n do read(m[i]); {заполнение массива}

max:=1;

for i:=2 to n do if m[i]>m[max] then max:=i;

k:=m[max];

m[max]:=m[1];

m[1]:=k;

end.

Ответить

Читайте также



Вы находитесь на странице вопроса "Поменять местами максимальный и первый элементы массива.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.