Нахождение элемента массива, который меньше максимального но больше других

@_Chaffee · Регистрация: 18.10.2014

Author24 — интернет-сервис помощи студентам

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
var 
j,i,c:byte;
a:array[1..10] of integer;
procedure mass(i,j:byte;
var c,max:byte);
begin
max:=1; 
for i:=1 to 10 do 
if a[i]>max then max:=a[i];
for i:=1 to 10 do
begin  
for j:=1 to 10 do
if (a[i]>a[j])or (a[i]<max) then c:=a[i];
end;
end;
begin 
for i:=1 to 10 do
begin
a[i]:=random(0,20);
writeln(a[i],'  ');
end;
mass(i,max,j,c);
writeln(c);
end.

Задача такова
Составить программу, которая в массиве случайных вещественных чисел (N=10) находить второе по величине число (вывести на печать число, которое меньше максимального, но больше всех других элементов массива). В качестве процедуры оформить нахождение этого числа.
У меня вылезает ошибка " Нельзя преобразовать тип function(a: byte;b: byte): byte к byte" не могу понять почему

@JuriiMW · 02.02.2015, 09:13

Потому, что переменная max не описана, паскаль пытается подсунуть функцию max, для которой не заданы обязательные параметры!
Одно из двух:
— либо убрать вообще первые 2 параметра: procedure mass(var c, max: byte);
— либо заменить max на что то другое: mass(i,1,j,c);

@Puporev · 02.02.2015, 09:54

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
const n=10;
type mas=array[1..10] of real;//вещественные числа
procedure max2(a:mas;var m2:real);
var i:byte;
    m1:real;
begin
if a[1]>a[2] then
 begin
  m1:=a[1];
  m2:=a[2];
 end
else
 begin
  m1:=a[2];
  m2:=a[1];
 end;
for i:=3 to n do
if a[i]>m1 then
 begin
  m2:=m1;
  m1:=a[i];
 end
else if a[i]>m2 then m2:=a[i];
end;
var a:mas;
    i:byte;
    m2:real;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
  begin
   a[i]:=10*random;
   write(a[i]:6:2);
  end;
writeln;
max2(a,m2);
writeln('Второй максимальный=',m2:0:2);
end.

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@JuriiMW 5092 / 2660 / 2353 Регистрация: 10.12.2014 Сообщений: 10,055
	02.02.2015, 09:13
	Потому, что переменная max не описана, паскаль пытается подсунуть функцию max, для которой не заданы обязательные параметры! Одно из двух: — либо убрать вообще первые 2 параметра: procedure mass(var c, max: byte); — либо заменить max на что то другое: mass(i,1,j,c); 0

Опции темы