Определить максимальный элемент массива и элемент являющийся максимальным без учета этого элемента

@Викуся) · Регистрация: 16.12.2011

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

дан массив.определить максимальный элемент массива и элемент являющийся максимальным без учета этого элемента("предмаксимальный")
определить номера максимального элемента и элемента являющегося минимальным без учета этого элемента

Добавлено через 1 минуту
помогите решить!

@Puporev · 10.01.2012, 16:07

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,imx1,imx2:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
if a[1]>a[2] then
 begin
  imx1:=1;
  imx2:=2;
 end
else
 begin
  imx2:=2;
  imx1:=1;
 end;
for i:=3 to n do
 begin
  if a[i]>a[imx1] then
   begin
    imx2:=imx1;
    imx1:=i;
   end
  else if a[i]>a[imx2] then imx2:=i;
 end;
writeln('Первые 2 наибольших a[',imx1,']=',a[imx1],'  a[',imx2,']=',a[imx2]);
readln
end.

@Викуся) 2 / 2 / 3 Регистрация: 16.12.2011 Сообщений: 69
		1
	Определить максимальный элемент массива и элемент являющийся максимальным без учета этого элемента 10.01.2012, 15:30. Показов 2628. Ответов 1 Метки нет (Все метки) дан массив.определить максимальный элемент массива и элемент являющийся максимальным без учета этого элемента("предмаксимальный") определить номера максимального элемента и элемента являющегося минимальным без учета этого элемента Добавлено через 1 минуту помогите решить! 0

	10.01.2012, 16:07

Определить максимальный элемент массива и элемент являющийся максимальным без учета этого элемента

Решение