господа. ай нид хэлп!

[nam-shub]

кто мне эту х-ню (паскаль) напишет на си, тому я причиню кучу добра, только попросите. мне надо чтоб было готово завтра утром!

да, я тормоз.

но я только сегодня узнал...

под катом две маленькие убогие программки

program str2;

uses

crt;

var

str:string;

i:word;

begin

clrscr;

writeln ('Input string');

readln (str);

if str[1]<>' ' then write(str[1],' ');

for i:=1 to length(str) do

if str[i]=' ' then write(str[i+1],' ');

readkey;

end.

----------------------------

program mas1;



uses

crt;



var

i,n:byte;

m,d:real;

a:array [1..20] of real;



begin

clrscr;

writeln('Input n (Number of calculations)');

read(n);

if (n<2) or (n>20) then writeln('Error! n must be in [2;20]')

else

begin

m:=0;

d:=0;

writeln('Input a1-a',n);

for i:=1 to n do

begin

read(a[i]);

m:=m+a[i];

end;

m:=m/n;

for i:=1 to n do

d:=d+(a[i]-m)*(a[i]-m);

d:=d/(n-1);

writeln('M = ',m:1:4,'; D = ',d:1:4);

end;

readkey;

end.