1) Вычислите сумму элементов одномерного массива А (10). 2) Вычислите произведение элементов одномерного массива А (10). 3) Вычислите сумму четных чисел в массиве А (10). 4) Задан массив из N элементов. Определить максимальный (минимальный) элемент.

Задача 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] > max_element then

max_element : = arr[number];

if arr[number] < min_element then

min_element : = arr[number];

end;

writeln ();

writeln ('Максимальный элемент массива:', max_element:5);

writeln ('Мин элемент массива:', min_element:5);

end.