1)Вычислите сумму элементов одномерного массива А(10). 2)Вычислите произведение частей одномерного массива

Задача 1.

var
number, sum_of_elements_in_array: integer;
arr: array[1..10] of integer;

begin
for number := 1 to 10 do
begin
arr[number] := random(100);
write(arr[number]:5);
sum_of_elements_in_array := sum_of_elements_in_array + arr[number];
end;
writeln();
writeln(Сумма частей массива: , sum_of_elements_in_array);
end.

Задачка 2.

var
number, sum_of_elements_in_array: integer;
arr: array[1..10] of integer;

begin
sum_of_elements_in_array:=1;
for number := 1 to 10 do
begin
arr[number] := random(5)+1;
write(arr[number]:5);
sum_of_elements_in_array := sum_of_elements_in_array*arr[number];
end;
writeln();
writeln(Творение элементов массива: , sum_of_elements_in_array);
end.

Задача 3.

var
number, sum_of_elements_in_array: integer;
arr: array[1..10] of integer;

begin
for number := 1 to 10 do
begin
arr[number] := random(10);
write(arr[number]:5);
if arr[number] mod 2 = 0 then
sum_of_elements_in_array := sum_of_elements_in_array + arr[number];
end;
writeln();
writeln(Сумма четных частей массива: , sum_of_elements_in_array);
end.

Задача 4.

var
number, max_element, min_element: integer;
arr: array[1..10] of integer;

begin
for number := 1 to 10 do
begin
arr[number] := random(10);
write(arr[number]:5);
end;

min_element := arr[1];

for number := 1 to 10 do
begin
if arr[number] gt; max_element then
max_element := arr[number];
if arr[number] lt; min_element then
min_element := arr[number];
end;

writeln();
writeln(Наибольший элемент массива:, max_element:5);
writeln(Мин элемент массива:, min_element:5);
end.