Eugen20 | Дата: Понедельник, 18.11.2013, 21:51 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| type reals = file of real; function less(var f: reals): integer; var s,avr,x: real; i: integer; begin seek(f,0); i:=0; s:=0; while not eof(f) do begin read(f,x); s:=s+x; inc(i); end; avr:=s/i; seek(f,0); i:=0; while not eof(f) do begin read(f,x); if x<avr then inc(i); end; less:=i; end; var f: reals; i: byte; t: real; begin assign(f,'in.dat'); rewrite(f); for i:=1 to 5 do begin t:=random*10; write(f,t); end; writeln('Искомых элементов: ',less(f)); close(f); readln; end.
|
|
| |
diamFC | Дата: Вторник, 19.11.2013, 07:33 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Вот блок схема
|
|
| |