Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 8
1

Дан массив, состоящий из различных целых чисел. Определите второй по величине элемент этого массива

06.06.2012, 21:36. Просмотров 1728. Ответов 6
Метки нет (Все метки)

Дан массив, состоящий из различных целых чисел. Определите второй по величине элемент этого массива. Напишите для этого функцию double SecondMax (double A[], int n). Функция должна выполнять однократный просмотр массива.

помогите пожалуйста решить
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2012, 21:36
Ответы с готовыми решениями:

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

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

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива.
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива. (Напишите...

Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива.
Ребята, помогите пожалуйста! Дан одномерный массив целых чисел. Вывести на экран все двузначные...

6
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
07.06.2012, 08:18 2
Цитата Сообщение от Lanka_Sherr Посмотреть сообщение
double SecondMax (double A[], int n).
А Вы уверены что Вам нужно на Паскале, а не на С++?
0
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 8
07.06.2012, 19:02  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
А Вы уверены что Вам нужно на Паскале, а не на С++?
да, эту задачу нужно точно решить в паскале
0
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
07.06.2012, 19:03 4
Но это
Цитата Сообщение от Lanka_Sherr Посмотреть сообщение
double SecondMax (double A[], int n).
не Паскаль.
0
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 8
07.06.2012, 19:22  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Но это

не Паскаль.
доказать бы это преподавателю!!! а если без этой функции попробовать?
0
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
07.06.2012, 19:40 6
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
{функция по условию}
function SecondMax(a:mas;n:integer):integer;
var mx1,mx2,i:integer;
begin
if a[1]>a[2] then
 begin
  mx1:=a[1];
  mx2:=a[2];
 end
else
 begin
  mx1:=a[2];
  mx2:=a[1];
 end;
for i:=1 to n do
if a[i]>mx1 then
  begin
   mx2:=mx1;
   mx1:=a[i];
  end
else if a[i]>mx2 then mx2:=a[i];
SecondMax:=mx2;
end;
var a:mas;
    n,i,j,x:integer;
    f:boolean;
begin
clrscr;
{ввод массива из разных чисел}
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' разных целых чисел:');
write('a[1]=');
readln(a[1]);
for i:=2 to n do
 repeat
  write('a[',i,']=');
  readln(x);
  j:=1;
  f:=true;
  while (j<=i-1)and f do
  if a[j]=x then f:=false
  else j:=j+1;
  if f then a[i]:=x;
 until f;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Второй максимальный=',secondMax(a,n));
readln
end.
2
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 8
07.06.2012, 19:42  [ТС] 7
огромное вам спасибо! вы меня спасли!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2012, 19:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан массив целых чисел. Заменить все элементы массива кратные 3, на третий элемент массива
Здравствуйте. Прошу опять помощи :-) Задача следующая: Дан массив целых чисел. Заменить все...

Дан массив,состоящий из n натуральных чисел.Заменить элементы массива на 0,если элемент оканчивается на цифру
Помогите пожалуйста решить.Дан массив, состоящий из n натуральных чисел. Заменить элементы массива...

Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо
Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две...

Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки
Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые...


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

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

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