Дан файл целых чисел. Подсчитать сумму чисел, больших числа N

@Ученик96 · Регистрация: 15.10.2012

Pascal

program p1;
var fx:text;
s,k,n:real;
c:integer;
begin
assign(fx,'C:\Users\Пользователь\Documents\аипас.txt');
reset (fx);
S:=0;
while not Eof(fx) do
begin
read (fx,c);
If c >n then S:=S+k;
end;
close (fx);
writeln('S=',S);
end.

Не получается. Можно пожалуйста с пояснениями.

@domovou2.0 · 15.10.2012, 19:19

Pascal

program p1;
var
   fx:text;
   c,i,s,n:integer;
begin
assign(fx,'0001.txt');
rewrite (fx);
writeln('Кол-во цифр в файле');
readln(i);
for c:=1 to i do {Заполняем файл}
    begin
    writeln(fx,random(100));
    end;
S:=0;
writeln('n= ');
readln(n);
reset(fx);
while not Eof(fx) do
      begin
     readln (fx,c); {Считываем элемент из файла}
     If c >n then S:=S+c; {Находим сумму элементов бол n}
     write(c:3); {Выводим файл на экран}
     end;
close (fx);
writeln(#13,'S=',S); {Выводим сумму}
end.

Опции темы