Поменять местами максимальный и первый элементы массива.
5-9 класс
|
В turbo pascal.
Ruha777
17 июня 2015 г., 1:40:26 (8 лет назад)
Dushez80
17 июня 2015 г., 2:42:57 (8 лет назад)
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.
Ответить
Другие вопросы из категории
Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b. (от 1 до 100).
Решите плиз.
Переведите численный масштаб в именованный:
1:350
1:35000
1:5000000
1:250000
Срочно!!!
Читайте также
Поменять местами максимальный и первый элементы массива.
В turbo pascal.
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max
элементов массива
помогите решить ПЛИИИИИЗ
1.дан массив из n элементов . поменять местами максимальный и последний элемент массива
Поменять местами минимальный и первый элементы массива.
В turbo pascal
Вы находитесь на странице вопроса "Поменять местами максимальный и первый элементы массива.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.