Напишите ! ! 30 !

1. ввести массив из 10 элементов с генератора случайных чисел.
2. вычислить сумму 1,2 и 4-го элементов.
3. вычислить сумму 3,5 и 7-го элементов.
4. определить большую сумму, полученную из 2 и 3 пункта
5. вывести на печать результаты выполнения пунктов 1-4

Program n3;  

var q,w,e:integer;  

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

begin

 for q:=1 to 10 do begin            

a[q]:=random(30);  

 write(a[q],' ');  

 end;

 writeln(' ');  

w:=a[1]+a[2]+a[4];

println(w);  

e:=a[3]+a[5]+a[7];

  println(e);  

  if w>e then

  writeln(w,'>',e)

  else   writeln(e,'>',w);

end.

Объяснение: