(Язык Pascal) 1. Найти минимальный элемент массива из 5 чисел. Массив заполняется в процессе работы программы случайными числами от 1 до 9. Вывести на экран значения элементов массива результат работы программы.
2. Найти сумму элементов массива из 5 чисел. Массив заполняется в процессе работы программы случайными числами от 2 до 10. Вывести на экран значения элементов массива результат работы программы.
2. Найти сумму элементов массива из 5 чисел. Массив заполняется в процессе работы программы случайными числами от 2 до 10. Вывести на экран значения элементов массива результат работы программы.
More Questions From This User See All
Answers & Comments
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.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!