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