Массив, ППЦ( Опции

[TeRmInWeB]

Тёмный Эльф спасиб сейчас напишу) а то уже места нету всё пространство паскаль занял)

[TeRmInWeB]

блин я и uses crt и clrscr попробовал а ошибка почему то? я во всех бегинах попробовал.

[Client]

Покажи полностью код, чтоб увидели (мы не телепаты )

[TeRmInWeB]

program m;
const n=25;
var mas: array [1..n] of integer;
i,sum,kol: integer;
begin
randomize;
for i:=1 to n do
begin
read (mas[i]);
end;
sum:=0;
kol:=0;
for i:=1 to n do begin write(mas[i],' '); end;
readln;
for i:=1 to n do
begin
if ((mas[i] mod 2) = 0) then begin mas[i]:=-mas[i]; end
else begin sum:=sum+mas[i]; kol:=kol+1;
end;
end;
for i:=1 to n do begin write(mas[i],' ');
end;
readln;
writeln(sum);
writeln(kol);
readln;
end.

Добавлено через 9 мин.
вот там я пробовал uses crt но ошибки выдаёт.

[Client]

program m;
uses crt;
.  .  . 
begin
   clrscr;
.  .  .

А так не пробовал??

Сообщение отредактировано: Client - 23.12.2007 16:07

[TeRmInWeB]

сейчас попробую)


Добавлено через 10 мин.
Зашибись СУУУпер все 100% работает спс всем кто помагал!!!!!!!!!!!