Подпрограммы(Процедура).

[NoviceYola]

Составить процедуру,печатающую 3 наибольших элемента массива за один его просмотр.

[Stilet]

С потолка:

procedure proceduree;
var i,k:integer; max:array[1..3] of integer;
begin
 max[1]:=-maxint; max[2]:=max[1]; max[3]:=max[1];
 for i:=1 to 10 do begin
  if max[3]<a[i] then max[3]:=a[i];
  if max[2]<max[3] then begin k:=max[2]; max[2]:=max[3];max[3]:=k;end;
  if max[1]<max[2] then begin k:=max[1]; max[1]:=max[2];max[2]:=k;end;
 end;
 write(max[1],max[2],max[3]);
end;

Могу ошибаться, т.к. не проверял.

[NoviceYola]

Сообщение от Stilet

С потолка,могу ошибаться, т.к. не проверял.

"Неизвестный идентификатор а".

[BDA]

Сообщение от NoviceYola

"Неизвестный идентификатор а".

Ну да, массив Вам нужно объявить с именем а (глобальный), заполнить его, а потом уже вызывать процедуру.

[NoviceYola]

Сообщение от BDA

Ну да, массив Вам нужно объявить с именем а (глобальный), заполнить его, а потом уже вызывать процедуру.

Напишите пли3)

[BDA]

Так будет неинтересно
Что тогда останется сделать Вам? Вы попробуйте разобраться, напишите что-нибудь, тогда поможем исправить.

[NoviceYola]

Сообщение от BDA

Так будет неинтересно
Что тогда останется сделать Вам? Вы попробуйте разобраться, напишите что-нибудь, тогда поможем исправить.

Вот:

Program _1;
var a: array [1..10] of integer;
i: integer;

procedure proceduree;
var i,k:integer; max:array[1..10] of integer;
begin
max[1]:=-maxint; max[2]:=max[1]; max[3]:=max[1];
for i:=1 to 10 do begin
if max[3]<a[i] then max[3]:=a[i];
if max[2]<max[3] then begin k:=max[2]; max[2]:=max[3];max[3]:=k;end;
if max[1]<max[2] then begin k:=max[1]; max[1]:=max[2];max[2]:=k;end;
end;
write(' ', max[1], ' ', max[2], ' ', max[3]);
end;

begin
for i:= 1 to 10 do
begin
a[i]:= random (100);
write (' ', a[i]);
writeln;
end;
proceduree;
end.

p.s. Только не совсем понятно,что за "maxint"
Можно ли "max's" заменить символьными переменными?!

[ZX Spectrum-128]

Maxint - максимальное значение для целого типа

[NoviceYola]

Сообщение от ZX Spectrum-128

Maxint - максимальное значение для целого типа

а что насчет замены переменных ?

[Stilet]

не совсем понятно,что за "maxint"

Стандартная константа, содержащая самое большое целое, которое проц твой может обработать.

Можно ли "max's" заменить символьными переменными?!

Тоесть? В каком смысле "символьными"?