Элементарная задачка

[GrindeX]

type massiv3=array[1..1000]of integer;
var i:integer;ff:text;m3:massiv3;


assign(ff,'c:\pg\111\2.txt');
reset(ff);
repeat
i:=i+1;
read(ff,m3[i]);
until eof(ff);
close(ff);
readln;
end.

^Компилятор не орет, но прога вылетает с ерором при запуске,
В общем дан файлик в котором только цифры без пробелов, нужно считать все эти цифры в массив(Ну или куданибудь еще, только при условии чтобы потом можно было умножать и складывать их)Помогите кто в курсе как это реализовать.

[Sazary]

Вы хотите сказать, что это у вас компилируется?
Где начало программы (begin)? Нету его.
Переменная i не проинициализирована.

uses crt;
type
massiv3=array[1..1000]of integer;
var
 i:integer;
 ff:text;
 m3:massiv3; 

begin
clrscr;
assign(ff,'c:\pg\111\2.txt');
reset(ff); 
i := 0;
repeat
 i:=i+1;
 read(ff,m3[i]);
until eof(ff);
close(ff);
readln;
end.

[GrindeX]

Это кусок куда, я его выдрал не полностью видимо.
Сделал как вы написали, выдает еррор 201

[Lawless]

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

Это кусок куда, я его выдрал не полностью видимо.
Сделал как вы написали, выдает еррор 201

вылет за границу... немогу помоч, ибо незнаю что у вас записано в файле

[GrindeX]

Проблема в том что команда read(ff,m3[i]); записывает все содержимое файла в один элемент массива, а мне нужно чтобы каждая циферка из файла была отдельным элементом.

[Sazary]

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

Проблема в том что команда read(ff,m3[i]); записывает все содержимое файла в один элемент массива, а мне нужно чтобы каждая циферка из файла была отдельным элементом.

Так вы покажите содержимое файла.
Сделал файл:

1
2
3
4
5

Все читает как надо.

нужно чтобы каждая циферка из файла была отдельным элементом

Если каждая цифра, то читайте содержимое как строку и уже там разбивайте.

[GrindeX]

Сори за нубство но как превратить строку в массив?При поэлементном присваивании строки и массива компилятор ссылается на несовместимость типов.

[Sazary]

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

Сори за нубство но как превратить строку в массив?При поэлементном присваивании строки и массива компилятор ссылается на несовместимость типов.

Какую строку? В какой массив? В массив чего?
Предоставьте больше информации.
Приведите примеры, что есть и что надо получить.

[Dirt]

Привет всем)))

Я так понимаю у вас в файле идет так: "6757646565664645456464" ???

вот

uses crt;
type
massiv3=array[1..1000]of integer;
var
 i, code:integer;
 ff:text;
 m3:massiv3;
 str:string;

begin
clrscr;
assign(ff,'2.txt');
reset(ff);
read(ff,str);
close(ff);
for i:=1 to length(str) do
 begin
      val(str[i], m3[i], code);
 end;

readln;
end.

[GrindeX]

Dirt Спасибо все работает