Задача 4 урок 15

Primary tabs

Submitted by boris68 on Fri, 08/20/2021 - 10:41

Forums:

Задача 4 урок 15

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

type myArr = array[1..7] of integer;
var
  a: myArr; // объявляем переменную типа  myArr
  i, b, c: integer;
begin
   b:=0;
   c:=0;
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');
     readln(a[i]);
   end;
   writeln('>>> elementi:');
   for i:=low(a) to high(a) do
     if b < a[i] then
       begin
         c := b;
         b := a[i];
       end;
     writeln(b, 'and', c);

   readln();
end.
  • Log in to post comments
  • 742 reads
vedro-compota's picture

vedro-compota

Sun, 08/22/2021 - 11:52

1)

   b:=0;
   c:=0;

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

2)
не сработает на наборе:

  a[1] := 3;
    a[1] := 3;
    a[1] := 3;
    a[1] := 3;

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