Нужно ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных эл...

August 2021 1 16 Report

Нужно ввести с клавиатуры массив из 5
элементов, найти в нем два максимальных элемента и их номера.
Pascal ABC

Answers & Comments

iowisp3 Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
procedure ho;
begin
if a[i]>Max then
begin
Max:=a[i];
c:=i;
end;
end;

begin
for i:=1 to 5 do
begin
a[i]:= random(15)+2;
write(a[i],' ');
end;
Max:=a[1];
c:=1;
for i:=1 to 5 do
ho;
writeln;
writeln('Максимум: ',max);
f:=c;
if f=1 then
begin
max:=a[2];
for i:=2 to 5 do
ho;
writeln('Вторичный максимум: ',max);     exit;
end;
   if f<5 then
begin
Max:=a[f+1];
for i:=f+1 to 5 do
ho;
n:=max;
end;
if f>1 then
begin
Max:=a[1];
c:=f;
for i:=1 to c-1 do
ho;
if max>n then
writeln('Вторичный максимумì: ',max);
if max<n then
writeln('Вторичный максимум: ',n);
   end;
end.

3 votes Thanks 2

Answers & Comments

reshite 1 uyu zadachu pozhalujsta ochen vazhno

zapisat v polnom i sokrashennom videesli mozhno zaranee spasibo zncl2 gt zn

sdelajte hotyaby odno pozhalujsta

reshite sistemu ur j pozhalujsta ax a 1y05 a 1x aya

zadacha po fizike na fotke pomogite pozhalujsta ochen nuzhno

dokazhite chto dannye urya imeyut korni pozhalujsta

pomogite pozhalujsta60123ca51b84c3fe151b6198b8fb8604 21820

lyubye voprosy pozhalujsta

pomogite pozhalujsta37ed9adcc05a6d7bbba0924e732e95e6 80828

napishite v polnom i sokrashennom vide esli mozhno zaranee spasibo cuso4 gt cu

рекомендуемые вопросы

Helpful Links

Helpful Social