Delphi:Элементы массива

[alex22527]

Переписать элементы массива вещественных чисел X=(x1,x2,...xn) в обратном порядке в массив Y=(y1,y2,...yn).Вычислить процент чётных,нечётных и нулевых элементов массива Y.

[Sam Gold]

for i:=n downto 1 do y[n-i+1]:=x[i];

for i:=1 to n do
begin
if   y[i] = 0 then  nul:=nul+1;
if  ( y[i] mod 2) <>0 then nechet:=nechet+1;
end;

writeln('procent nechetnix=', nechet/n*100,'%');
writeln('procent nulevix=', nul/n*100,'%');
writeln('procent chetnix=', (n-nechet-nul)/n*100,'%');

[alex22527]

Sam Gold спасибо конечно,но можно в делфи?

[Sam Gold]

Так а в чем проблемы?

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var i:integer;
x,y:array[1..n] of integer;
nul,nechet:real;
begin
{ задаем массив  /================}

for i:=n downto 1 do y[n-i+1]:=x[i];

for i:=1 to n do
begin
if   y[i] = 0 then  nul:=nul+1;
if  ( y[i] mod 2) <>0 then nechet:=nechet+1;
end;

Label1.Caption:='procent nechetnix='+FloatToStr( nechet/n*100)+'%'+#13;
Label1.Caption:=Label1.Caption+'procent nulevix='+FloatToStr( nul/n*100)+'%'+#13;
Label1.Caption:=Label1.Caption+'procent chetnix='+FloatToStr((n-nechet-nul)/n*100)+'%';

end;

end.

[Stilet]

Sam Gold спасибо конечно,но можно в делфи?

А тот код итак в Делфи можно скомпилировать запросто.