Question

сгенерировать массив m из 10 элементов.Каждый элемент-случайное число от 0 до 20. Сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой
а)найти сумму всех элементов
б)вывести на экран номера элементов,значения которых четны
в)найти произведение этих элементов
г)найти сумму a[1]*a[2]*+a[2]*a[3]+a[3]*a[4]+...a[9]*a[10];

Answer 1

Ответ:

var a: array[1..10] of integer;

i:integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(21);

If a[i] mod 2=0 then writeln(i);{задание б}

end;

P:=1;

S:=0;

X:=0;

for i:=1 to 9 do

begin

S:=s+a[i];

P:=p*a[i];

X:=x+a[i]*a[i+1];

end;

P:=p*a[10];

S:=s+a[10];

Writeln(s,p,x);{задания а, в, г соответственно}

end.