• Заполните массива [1..10] случайными целыми числами в диапазоне от -20 до 20 и найдите сумму максимального и минимального элементов данного массива.

Ответы 1

  • program fantscrin;

     const n = 10;

     var a: array [1..n] of integer;

         i,min,max:integer;

    Begin

     for i:=1 to n do

       a[i]:= random(41)-20;

     for i:=1 to n do

       write(a[i], '  ');

       

     min:=a[1];

     for i:=1 to n do

       if (a[i]<min) then min:=a[i];

     

     max:=a[1];

     for i:=1 to n do

       if (a[i]>max) then max:=a[i];

     

       

     writeln('');

     writeln(min+max);

    End.

    • Автор:

      livia
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years