Решить задачу с прерыванием цикла. Найдите сумму S и произведение P четных от 1 до N. N=10.

Miha, seclub.org/forum/goto/14192647/ - мсье знает толк в извращениях

!ceMage, мсье не слышал о Notepad++ и подсветке синтаксиса?

Miha, одним синтаксисом сыт не будешь...

!ceMage, я на диете.

Дан файл с числами. Переписать все положительные элементы в новый файл.Сумму всех отрицательных в конец данного файла.

program pr;
uses crt ;
var f,c : file of integer;
s,a,n,i:integer;
Begin
clrscr;
assign(f,'c:\1125.txt');
assign(c,'c:\1126.txt');
rewrite(f);
rewrite(c);
writeln('vvedite razmer file (f)');
readln(n);
writeln('zapolnite file');
for i:=1 to n do begin
write(f,a);
readln(a);
end;
close(f);
close(c);
reset(f);
reset(c);
s:=0;
while not eof (f) do begin read(f,a);
if (a>0) then begin write (c,a); end;
if (a<0) then begin s:=s+a; end;
end;
writeln('summa otric',s);
write(f,s);
close(f);
close(c);
readkey;
end.

В коде видно, что я ввожу сам в файл числа.У меня вроде все работает, но s:=s+a, не всегда правильно считает. А не правильно тогда,когда последнее отрицательно число в файле. Оно его почему то не считает(без него суммирует)

Вопрос закрыт. Необходимо было поменять местами
write(f,a);
readln(a);
т.к сначала считать с консоли ввода надо.

привет всем! помогите с задачкой ,весь мозг уже сломал. program lab4;
uses crt;
var D:array[1..10,1..11] of real;
w,x:real;
i,j:integer;
begin
clrscr;
w:=-10;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 11 do
begin
x:=-pirandompi;
d[i,j]:=sin(x)*cos(x);
if d[i,j]>=w then w:=d[i,j];
end;
end;
for
i:=1 to 10 do
begin
for j:=1 to 11 do
writeln(' ',d[i,j]:5:2,' ');
writeln;
end;
writeln('w:=',w=6:3);
readln;
readkey;
end.
W - задал как максимум и ее почему то не выводит пишет ошибку

Как создать новогоднюю открытку в паскале???Помогите:))))