массив

[логарифм]

Паскаль
прога на массив ..должна считать кол-во n в матрице...на эйбиси идет , а на free pascal нет...как это можно исправить??
program fer;
var a:array[1..10] of real;
i:integer;
s,n:real;
begin
s:=0;
writeln('vvedite n');
readln(n);
writeln('vvedite matricy');
for i:=1 to 10 do begin
read (a[i]);
if a[i]=n
then s:=s+1;
end;
writeln(s);
end.

[Doholyan]

Так...понял у тебя получаеться
s=1.(так как, этот оператор исполняеться один раз)
Так как не обьявленно тело
for.......then
begin
.....
и не думаю...что на АВС эта программа работает....внимательно раасматри переменные

end;

[__STDC__]

Сообщение от Doholyan

Так...понял у тебя получаеться
s=1.(так как, этот оператор исполняеться один раз)
Так как не обьявленно тело
for.......then
begin
.....
и не думаю...что на АВС эта программа работает....внимательно раасматри переменные

end;

что за бред?

Паскаль
прога на массив ..должна считать кол-во n в матрице...на эйбиси идет , а на free pascal нет...как это можно исправить??

странная у вас матрица... из одной строки? в fpc в принципе тоже работает.. считает сколько раз число n встречается в.. хм.. матрице..

[логарифм]

ну да...матрица у меня в столб..но это мелочь...проблема в том что это же в fpc не компилируется...почему то он считает все ; ошибками

[__STDC__]

В FPC все компилируется.... смотрите
1111.jpg

[логарифм]

увы .кучу ошибок пишет.....есть вероятность сбоя работы этой программы?

[__STDC__]

Сообщение от логарифм

увы .кучу ошибок пишет.....есть вероятность сбоя работы этой программы?

какого рода ошибки? можно также скриншотиком поделиться...

[логарифм]

[логарифм]

ААААААААААА!!!!!!!!!!!! этж си!
черт...прошу прошения за свою бесконечную тупость)

[__STDC__]

Сообщение от логарифм

ААААААААААА!!!!!!!!!!!! этж си!
черт...прошу прошения за свою бесконечную тупость)

да ладно, со всеми бывает) ничего страшного =)