1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.

2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.

3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.

4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n. Вывести исходный массив и полученную сумму.

Помогите кто в чем может.

Question

Информатика

Фирс

24 апреля, 15:17

1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.

2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.

3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.

4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n. Вывести исходный массив и полученную сумму.

Помогите кто в чем может.

+4

Ответы (1)

Знаете ответ на вопрос?

Зосима · Answer 1

1.

uses crt;

var i, n:integer;

A:array[1 ... 4] of integer;

begin

n:=1;

for i:=1 to 4 do

begin

read (A[i]) ;

n:=n*A[i];

end;

writeln (n) ;

end.