Заполните числовой массив из 7 элементов и выведите ** экран сумму 3 и 5 элементов....

Question

Заполните числовой массив из 7 элементов и выведите на экран сумму 3 и 5 элементов. Заполните числовой массив из 9 элементов и выведите на экран сумму 2 и 4 элементов.

Answer 1

Program aa;

var

a:array[1..20] of integer;

b:array[1..15] of integer;

 

 c,d:integer;

i:integer;

 

begin

randomize;

 

for i=1 to 7 do

a[i]:=random(21);

 randomize;

 for i=1 to 9 do

 

 

 b[i]:=random(16);

 c:=a[3]+a[5];

d:=b[2]+b[4];

 

 writeln(C+'  ' +d);

 

end.