Question

(Язык Pascal) 1. Найти минимальный элемент массива из 5 чисел. Массив заполняется в процессе работы программы случайными числами от 1 до 9. Вывести на экран значения элементов массива результат работы программы.
2. Найти сумму элементов массива из 5 чисел. Массив заполняется в процессе работы программы случайными числами от 2 до 10. Вывести на экран значения элементов массива результат работы программы.

Answer 1

1)

const

 n=5;

var

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

 i,min:integer;

begin

 min:=10;

 for i:=1 to n do

   begin

     a[i]:=random(9)+1;

     write(a[i],' ');

     if a[i]<min then

       min:=a[i];

   end;

 writeln;

 write('Min: ',min);

end.

2)

const

 n=5;

var

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

 i,sum:integer;

begin

 sum:=0;

 for i:=1 to n do

   begin

     a[i]:=random(9)+2;

     write(a[i],' ');

     sum:=sum+a[i];

   end;

 writeln;

 write('Sum: ',sum);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!