а) составьте программку ,которая заполняет массив а[1..10 ] случайными целыми

а) составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 10 И обретает сумму малого и наибольшего элемента массива

Задать свой вопрос
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(20);

 for i:=1 to n do

   write(a[i], '  ');

   

 min:=a[1];

 for i:=1 to n do

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

 

 max:=a[1];

 for i:=1 to n do

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

 

   

 writeln('');

 writeln(min+max);

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт