Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189433
18.05.2016, 17:29
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:
написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива .
Максимальный элемент массива поместите в конце массива, минимальный
элемент массива в начале массива.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 10:53
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=10;
var
a:array[1..n]of integer;
b,c:integer;
begin
{создаем массив}
randomize;
for b:=1 to n do
begin
a[b]:=random(100);
write(a[b]:5);
end;
writeln;
{ищем минимум}
for b:=2 to n do
if a[1]>a[b]then
begin
c:=a[1];
a[1]:=a[b];
a[b]:=c;
end;
{ищем максимум}
for b:=2 to n-1 do
if a[n]<a[b]then
begin
c:=a[n];
a[n]:=a[b];
a[b]:=c;
end;
{выводим массив}
for b:=1 to n do
write(a[b]:5);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа