Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Makr0
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 5
1

Дан целочисленный массив размером N. Отсортировать массив по убыванию. Вычислить сумму первого и последнего элемента массива.

12.12.2012, 18:50. Просмотров 1588. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив размером N. Отсортировать массив по убыванию. Вычислить сумму первого и последнего элемента массива.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 18:50
Ответы с готовыми решениями:

Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и последнего элемента массива
Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и...

Целочисленный массив. Поменять местами значения первого и последнего элемента и т.д.
Дан одномерный целочисленный массив А, состоящий из N элементов, N — заданное...

Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i]
Дан целочисленный массив А размера 10. Вывести номер первого и последнего из...

Дан двумерный массив размером 3х5. Вычислить сумму элементов массива
Дан двумерный массив размером 3х5. Вычислить сумму элементов массива.

Дан целочисленный массив В[1..5, 1..5]. Вычислить сумму элементов этого массива, расположенных выше левой диагонали
Дан целочисленный массив В. Вычислить сумму элементов этого массива,...

1
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 567
12.12.2012, 19:54 2
Лучший ответ Сообщение было отмечено Makr0 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
type
  tarray=array [1..100] of integer;
 
procedure selectionsort(var arg:tarray;size:byte);
var
  i,j,t:integer;
begin
  for i:=1 to size-1 do
    for j:=size downto i+1 do
      if arg[i]<arg[j] then begin
        t:=arg[i];
        arg[i]:=arg[j];
        arg[j]:=t;
      end;
end;
 
var
  a:tarray;
  i,n:integer;
 
begin
  writeln('введите размер массива');
  readln(n);
  randomize;
  writeln('исходный массив:');
  for i:=1 to n do begin
    a[i]:=random(100)-50;
    write(a[i],' ');
  end;
  selectionsort(a,n);
  writeln;
  writeln('отсортированный массив:');
  for i:=1 to n do
    write(a[i],' ');
    writeln;
  writeln('сумма первого и последнего элементов равна  ',a[1]+a[n]);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 19:54

Дан целочисленный массив размером 3*5. Определить максимальный элемент данного массива
Дан целочисленный массив размером 3*5. Определить максимальный элемент данного...

Дан целочисленный массив Х размером N. Найти и вывести на экран эл-ты массива, кратные целому числу В.
Дан целочисленный массив Х размером N. Найти и вывести на экран элементы...

Дан целочисленный массив размером N. Определить, является ли он биэкстремальным.
Дан целочисленный массив размером N. Определить, является ли он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru