Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2007, 19:57   #21
Tayfun
Форумчанин
 
Аватар для Tayfun
 
Регистрация: 24.06.2007
Сообщений: 351
По умолчанию

Если честно, то НЕлюблю ошибки искать. Вот рабочий код:
Код:
program FORDIANOCHKA;
uses crt;
var
f:text;
ch:array[1..100] of integer;
b2,b,s,s2,ss:string;
sum,n,c,i,j,e:integer;
s_a:real;
bb:boolean;
begin
clrscr;
assign(f,'fox.txt');
reset(f);
s2:='1234567890';
while not eof(f) do begin
readln(f,s);
c:=length(s);
for i:=1 to c do begin
b:=copy(s,i,1);
bb:=false;
for j:=1 to 10 do begin
b2:=copy(s2,j,1);
if b=b2 then begin bb:=true; ss:=ss+b; end;
end;
if bb=false then begin if ss<>'' then begin n:=n+1; val(ss,ch[n],e); end; ss:='';
end;
end;
end;
if bb=true then begin if ss<>'' then begin n:=n+1; val(ss,ch[n],e); end; ss:=''; end;
for i:=1 to n do begin write(ch[i],' '); sum:=sum+ch[i]; end;
if n>0 then s_a:=sum/n;
writeln;
writeln('SREDNEE ARIFMETICHESKOYE->',s_a:1:4);
readkey;
end.
Я не маюсь бездельем, я от него тащусь!
Tayfun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Моя первая и последняя игра. BangBangFM Gamedev - cоздание игр: Unity, OpenGL, DirectX 13 05.12.2008 22:12
Последняя статья. R-SER Свободное общение 10 25.11.2007 20:38
Как проверть, есть ли в числе запятая? Look Общие вопросы C/C++ 5 06.11.2007 21:27