Урок 15 задача 4

Primary tabs

Submitted by alexander263 on Wed, 12/15/2021 - 18:05

Forums:

Урок 15 задача 4

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
Примеры для проверки:

1 2 2 1 1 1 1
Ответ: 2 2
-1 -2 -2 -1 -1 -1 -1
Ответ: -1 -1
-1 -2 -2 5 4 -1 -1
Ответ: 5 4

program project1;
var numbArr: array[1..7] of integer;
    i,max_1,max_2:integer;
begin
  max_1:=0;
  max_2:=0;
  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  for i:=low(numbArr) to high(numbArr) do
  begin
    if (numbArr[i]>max_1) then
      max_1:=numbArr[i];
  end;
  for i:=low(numbArr) to high(numbArr) do
  begin
    if ((numbArr[i]>max_2)and(numbArr[i]<>max_1)) then
      max_2:=numbArr[i];
  end;
  writeln('максимальные числа в массиве ', max_1, ' ',max_2);
  readln();
end.
  • Log in to post comments
  • 3693 reads
vedro-compota's picture

vedro-compota

Wed, 12/15/2021 - 18:18

1)

max_1:=0;
  max_2:=0;

а что если в массиве все числа отрицательные?

2) стараться решить в один цикл

_____________
матфак вгу и остальная классика =)

alexander263

Sun, 12/19/2021 - 12:54 

program project1;
var numbArr: array[1..7] of integer;
    i,max_1,max_2:integer;
begin

  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  max_1:=numbArr[1];
  max_2:=numbArr[1];
  for i:=1 to 7 do
  begin
    if (numbArr[i]>max_1) then
      max_1:=numbArr[i];
  end;
  for i:=1 to 7 do
  begin
    if ((numbArr[i]>max_2)and(numbArr[i]<>max_1)) then
      max_2:=numbArr[i];
  end;
  writeln('максимальные числа в массиве ', max_1, ' ',max_2);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 12/19/2021 - 13:11

2) стараться решить в один цикл

_____________
матфак вгу и остальная классика =)

alexander263

Wed, 12/22/2021 - 18:14 

program project1;
var numbArr: array[1..7] of integer;
    i,max_1,max_2:integer;
begin
  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  max_1:=numbArr[1];
  max_2:=numbArr[1];
  for i:=1 to 7 do
  begin
    if (numbArr[i]>max_1) then
    begin
      max_2:=max_1;
      max_1:=numbArr[i];
    end;
    if ((numbArr[i]>max_2)and(numbArr[i]<max_1)) then
      max_2:=numbArr[i];
  end;
  writeln('максимальные числа в массиве ', max_1, ' ',max_2);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 12/22/2021 - 18:21

использовать else

_____________
матфак вгу и остальная классика =)

alexander263

Wed, 12/22/2021 - 18:29 

program project1;
var numbArr: array[1..7] of integer;
    i,max_1,max_2:integer;
begin

  for i:=low(numbArr) to high(numbArr) do
  begin
    write('Введите ',i,' число : '); readln(numbArr[i]);
  end;
  max_1:=numbArr[1];
  max_2:=numbArr[1];
  for i:=1 to 7 do
  begin
    if (numbArr[i]>max_1) then
    begin
      max_2:=max_1;
      max_1:=numbArr[i];

    end
    else if ((numbArr[i]>max_2)) then
      max_2:=numbArr[i];
  end;
  writeln('максимальные числа в массиве ', max_1, ' ',max_2);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 12/22/2021 - 18:34

засчитано

_____________
матфак вгу и остальная классика =)