Ответы и объяснения

Лучший Ответ!
2014-03-21T00:02:02+04:00
1)
Program chik;
const n=30;
var a,b:array[1..30]of real;
l,i:integer;
min:real;
begin
for i:=1 to n do
read(a[i]);
min:=a[1];l:=1;
for i:=2 to n do
if(a[i]<min)then begin
min:=a[i];
l:=i;
end;
for i:=1 to l-1 do
begin
b[i]:=a[i];
write(b[i],' '); 
end;
end. 
2)
Program chik;
const n=20;
var a,b:array[1..30]of real;
l,i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]=0)then begin
l:=i;
break;
end;
for i:=1 to n do
begin
if(i>l)and(a[i]>0)then a[i]:=a[i]*2;
write(a[i],' '); 
end;
end.
3)
Program chik3;
const n=50;
var a,b:array[1..30]of real;
i:integer;
p:real;
begin
p:=1;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<=2)then p:=p*a[i];
end;
writeln(p); 
end.