Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
Programm Pr1;
Uses CRT;
Var
a : array[1..100] of ineger;
b,n,i,proisv : integer;
Begin
writeln('Введите длину массива ');
readln(n);
writeln('Введите число B ');
readln(b);
for i:= 1 to n do
Begin
a[i]:= Random(20)-10;
write(a[i]:3);
End;
for i:= 1 to n do
if(a[i]>b) then
     spoisv:=proisv*a[i];
write(proisv);
End.     
Comments: