На
Надюшка
Составьте программу, которая заполняет массив [1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму м
минимального и максимального элементов массива
минимального и максимального элементов массива
program prj1;
const N = 10;
var i,summ: integer;
mas: array[1..N] of integer;
begin
Randomize;
for i:=1 to N do mas[ i ]:=random(10) + 1; // Заполнение случаными числами 1..10
summ:=0;
for i:=1 to N do summ:=summ + mas[ i ]; // Сумма всех элементов
writeln('Исходный массив: ');
for i:=1 to N do write(mas[ i ], ' ');
writeln;
writeln('Самма: ', summ);
end;