Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: esercizio3
Title:
  esercizio3
Question:
program esercizio3; 
var 
v:array[1..20] of integer; 
sommap,sommad,i:integer; 
begin 
randomize; 
for i:= 1 to20 do 
v[i]:random(30); 
sommap:=0; 
sommad:=0; 
for i:=1 to20 do 
begin 
if(i mod2=0) 
then 
sommap:=sommap v[i]; 
else 
sommad:=sommad v[i]; 
end; 
writeln(sommap); 
writeln(sommad); 
end; 
readln; 
end. 
Answers:

Name: fantasmina01
raga che bello il fantaboscooooooooo :)))))