Дан файл состостоящий из вещественных чисел, нужно найти средн арифметической этих чисел.
procedure TForm1.btn1Click(Sender: TObject);
var
t:textfile;
a,s:real;
k:Integer;
s1:string;
i:integer;
begin
begin
mmo1.Lines.SaveToFile('File1.txt');
end;
begin
AssignFile(t,'File1.txt');
Reset(t);
k:=0;
s:=0;
while not eof(t) do
begin
readln(t,s1);
for i=1 to n do begin
Read(t,a)
s:=s+a;
end;
k:=k+1;
s:=s/k;
append(t);
writeln(t,s:0:1);
closefile(t);
edit1.text:=Floattostr(s);
end;
end;
end;
end.
Выдает ошибку for loop control variable must be simple local variable этой строки for i=1 to n do begin
и missing operator or semicolon этой строки s:=s+a;