Цитата:
Сообщение от АсяЯ
третья...а потом что писать??
var a=array[1..10] of integer; b=array[1..10] of integer; c=array[1..10] of integer; begin
|
Дык... программу, что ж ещё?
Но для начала - если у Вас однотипные переменные, то не нужно для каждой отдельную строку в разделе Var, можно их просто через запятую. Кроме того, для ввода значений в массивы целесообразно подключить генератор случайных чисел, тем более, что речь в задаче о статобработке.
Конечно, понимаю, что если "мы не программисты и для меня это сложно, не понятно вообще как делать", то разобраться сразу в работе с подпрограммами, с типами, с форматами, со случайными числами и т.п. - трудно. Но что ж тут поделаешь? Если совсем непонятно будет, спрашивайте.
Код:
Const
n=10;
Type
Ar=array[1..n] of real;
Var
a,b,c:Ar;
i:integer;
D,Delta:real;
Function M(x:Ar):real;
var S:real; k:integer;
begin
S:=0;
for k:=1 to n do S:=S+x[k];
M:=S/n;
end;
Procedure Disp(x:Ar; var Ds:real; var Dlt:real);
var S,MM:real; k:integer;
begin
MM:=M(x);
S:=0;
for k:=1 to n do S:=S+Sqr(x[k]-MM);
Ds:=S/n;
Dlt:=Sqrt(Ds);
end;
Begin
Randomize;
for i:=1 to n do
begin
a[i]:=0.9+0.2*Random;
b[i]:=2.5+1.0*Random;
c[i]:=5.0+4.0*Random;
end;
Writeln('Array a:');
for i:=1 to n do write(a[i]:7:3);
writeln;
Disp(a,D,Delta);
Writeln('M = ',M(a):0:3,' D = ',D:0:3,' Delta = ',Delta:0:3);
writeln;
Writeln('Array b:');
for i:=1 to n do write(b[i]:7:3);
writeln;
Disp(b,D,Delta);
Writeln('M = ',M(b):0:3,' D = ',D:0:3,' Delta = ',Delta:0:3);
writeln;
Writeln('Array c:');
for i:=1 to n do write(c[i]:7:3);
writeln;
Disp(c,D,Delta);
Writeln('M = ',M(c):0:3,' D = ',D:0:3,' Delta = ',Delta:0:3);
Readln
End.