|
|
|
|
|
|
|
Вернуться
| 1 Наталья, 28 апреля 2008 г. 22:32:58 | |
|
Спасибо, Руслан Азатович!
|
|
|
| 2 Мухамадеев Руслан Азатович, 27 апреля 2008 г. 19:28:02 | |
Var
m:array [1..100000] of longint;
i:longint;
begin
assign(input,'input.txt');
reset(input);
i:=0;
While not EOF do
begin
inc(i);
read(m[i]);
end;
close(input);
End.
Таким образом, все числовые данные файла будут в массиве "m". Всего их будет "i" штук.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
