Составьте программку которая наполняет массив а от 1 до 10 случайными

Составьте программу которая наполняет массив а от 1 до 10 случайными целыми числами в диапазоне от 0 до 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(10)+1;


 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:


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

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

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

Войти на сайт