| 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
| Вот блок схема
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
