Ошибка времени выполнения: Входная строка имела неверный формат

@umka=* · Регистрация: 21.02.2011

Студворк — интернет-сервис помощи студентам

Pascal

const m=4;
      n=3;
var f1,f2:text;
    a:array[1..m,1..n] of integer;
    i,j,m1,m2:integer;
begin
assign(f1,'1.txt');
reset(f1);
assign(f2,'2.txt');
rewrite(f2);
for i:=1 to m do
for j:=1 to n do
readln(f1,a[i,j]); // здесь ошибка
m1:=a[1,3];
for i:= 2 to m do
if a[i,3]>m1 then m1:=a[i,3];
writeln(f2,m1);
m2:=a[2,1];
for i:= 2 to n do
if a[2,j]>m2 then m2:=a[2,j];
writeln(f2,m2);
if m2>m1 then writeln(f2,m2>m1);
         else writeln(f2,m2<m1);
close(f1);
close(f2);
end.

в выделеной строке выдает Ошибка времени выполнения: Входная строка имела неверный формат.

@Vepsar · 27.10.2011, 20:33

https://www.cyberforum.ru/pasc... ment3.html
Раздел 3 пункт 4,,,,,

@Puporev · 28.10.2011, 10:41

Pascal

1
2
3

for i:=1 to m do
for j:=1 to n do
read(f1,a[i,j]); // здесь ошибка readln читает строку, а у нас числа

@Vepsar 33 / 32 / 14 Регистрация: 11.08.2011 Сообщений: 158
	27.10.2011, 20:33	2
	https://www.cyberforum.ru/pasc... ment3.html Раздел 3 пункт 4,,,,, 0

Опции темы