Помогите решить задачу...

[Anton_XXX]

а... все не надо... я понял...

Код: Выделить всё

program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
write('Сумма отрицательных элементов: ');
for i:=1 to k do
begin
read(f,n);
if n.i<0 then    {Помогите!}
x:=x+n.i;
end;
write(x);
readln;
end.

[Anton_XXX]

а... все не надо... я понял...

Код: Выделить всё

program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
write('Сумма отрицательных элементов: ');
for i:=1 to k do
begin
read(f,n);
if n.i<0 then    
x:=x+n.i;
end;
write(x);
readln;
end.

Помогите с функцией...

[Anton_XXX]

program ex_1;
uses crt;
type
dann=record
i:integer;
end;
var
x,i,k:integer;
f:file of dann;
n:dann;
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n.i);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n.i:2);
end;
readln;
reset(f);
x:=0;
for i:=1 to k do
begin
read(f,n);
if n.i<0 then
x:=x+n.i;
end;
writeln('Cумма отрицательных элементов',x);
readln;
end.[/CODE]

Помогите с Функцией...

[Anton_XXX]

помогите с функцией плиззз!

[somewhere]

Вот из этого участка кода сделай функцию

for i:=1 to k do
begin
read(f,n);
if n.i<0 then
x:=x+n.i;
end;

назови ее вроде GetSumm:Integer;
там где

write('Сумма отрицательных элементов: ');

добавь вызов функции.
Вообще тип dann абсолютно не нужен. Можно свободно объявить как

Код: Выделить всё

f:file of integer;

Никто тебе за это и слова не скажет, так как отличий нет никаких.

[Anton_XXX]

можете мне написать функцию, плиззз! чет у меня не получается... у меня вообще проблемма с процедурами и функциями... буду изучать...

[Anton_XXX]

ну помогите, пожалуйста...!
напишите функцию, для этой программы...

[Колядин Максим]

Код: Выделить всё

uses crt;
type foi= file of integer;
var
x,i,k:integer;
f: foi;
n: integer;
[b][i]
function getsum(var tfile: foi):integer;
var sum: integer;
begin
sum:=0;
reset(tfile);
for i:=1 to k do
begin
read(tfile,n);
if n<0 then inc(sum);
end;
getsum:=sum;
end;
[/b][/i]
begin
clrscr;
assign(f,'c:\sked');
rewrite(f);
write('Количество чисел: ');
readln(k);
for i:=1 to k do
begin
write('Введите ',i,' число: ');
readln(n);
write(f,n);
end;
writeln;
writeln('‚Вы ввели: ');
seek(f,0);
for i:=1 to k do
begin
read(f,n);
writeln(n:2);
end;
readln;

x:=0;
write('Сумма отрицательных элементов: ', getsum(f));
close(f);
readln;
end.

[Anton_XXX]

Большое спасибо!

[Anton_XXX]

только мне надо было не счетчик отрицательных элементов, а сумму отрицат элементов... все равно спасибо... я сам исправлю...)))