Задание во вложенном файле... №4
var f,d:array [1..8] of real;
c,s:real;
i:integer;
begin
for i:=1 to 8 do
begin...
Как записать, чтоб информация из файла считалась?
end;
s:=0
s:=s+f[i]...
Придрался препод...
for i:=1 to 8 do
begin
c:=s*(f[i]-2.5)/d[i];
writeln ('c', i, '=');
end;
end.
Как можно не которые значения ещё другими способами записать? Типа f[i] нельзя через copy там...