Автор - MISSBABONOVA
Ответ:
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.
Объяснение: