массив

@школьница96 · Регистрация: 05.05.2013

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

Найти два максимальных элемента массива.

@Puporev · 16.09.2013, 19:00

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;
if a[1]>a[2] then
 begin
  imx1:=1;
  imx2:=2;
 end
else
 begin
  imx1:=2;
  imx2:=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.

@школьница96 0 / 0 / 0 Регистрация: 05.05.2013 Сообщений: 7
		1
	массив 16.09.2013, 14:39. Показов 932. Ответов 1 Метки нет (Все метки) Найти два максимальных элемента массива. 0

	16.09.2013, 19:00

массив

Решение