Question

ПОМОГИТЕ СРОЧНО!!!

Два задания нужно сделать
Даю 100 баллов

Answer 1

Ответ:

5)

var

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

 total: real;

 n,m,i:integer;

begin

 for i:= 1 to 10 do a[i]:=random(10);

 readln(n,m);

 for i:= n to m do

 begin

   if a[i] mod 2 = 0 then total:=total+a[i];

 end;

 writeln(total/2);

end.

3)

var

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

 total: real;

 i:integer;

begin

 total:=1;

 for i:= 1 to 10 do

 begin

 readln(a[i]);

 total:=total*a[i];

 end;

 writeln(total)

end.