В массиве найти второе по величине число

@ILue · Регистрация: 17.01.2013

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

составить программу, которая в массиве A(N) находит второе по величине число(вывести на печать число,кототое меньше максимального элемента массива, но больше всех других элементов)

@senich · 17.01.2013, 17:56

Pascal

const n=10;
var
mas:array[1..n] of integer;
i,max,mmax,k:integer;
BEGIN
  randomize;
  writeln('Ìàññèâ:');
  for i:=1 to n do
    begin
    mas[i]:=-10+random(21);
    write(mas[i]:3);
    end;
  k:=-21;
  for i:=1 to n do
    if mas[i]>k then
      begin
      k:=mas[i];
      max:=i;
      end;
  writeln;
  writeln('Ìàêñèìàëüíûé ýëåìåíò=',mas[max],'.');
  k:=-21;
  for i:=1 to n do
    if (mas[i]>k) and (mas[max]>mas[i]) then
      begin
      k:=mas[i];
      mmax:=i;
      end;
  writeln('Âòîðîé ïî âåëè÷èíå ýëåìåíò=',mas[mmax],'.');
  readln;
END.

@ILue 9 / 9 / 0 Регистрация: 17.01.2013 Сообщений: 87
		1
	В массиве найти второе по величине число 17.01.2013, 16:11. Показов 4608. Ответов 1 Метки нет (Все метки) составить программу, которая в массиве A(N) находит второе по величине число(вывести на печать число,кототое меньше максимального элемента массива, но больше всех других элементов) 0

Опции темы

В массиве найти второе по величине число

Решение