Текстовый документ

@sochnyj · Регистрация: 23.07.2017

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

Вот такая ошибка:
y17m11d22 (гонщики).pas(19) : Ошибка времени выполнения: Входная строка имела неверный формат.

Программа

Pascal

var n,m,i,j,chs,sum,min:integer;
stk,otv:string;
f: text;
begin
assign(f, 'input1.txt');
reset(f);
read(f,n,m);
for i:=1 to n do
 begin
 read(f,stk);
 writeln(stk);
 if i=1 then
  begin
  otv:=stk;
  for j:=1 to m do
   begin
   {if j=1 then
   readln(f,chs) else}
   read(f, chs);
   min:=min+chs;
   end;
  end else
 
 begin
 for j:=1 to m do
  begin
  {if j=1 then
  readln(f,chs) else}
  read(f, chs);
  sum:=sum+chs;
  end;
 if sum<min then
  begin
  otv:=stk;
  min:=sum;
  end;
 sum:=0;
 end;
 end;
close(f);
 
writeln(otv);
end.

Содержимое текст. документа

5 2
st
2 2
bs
2 1
or
1 2
vf
1 1
fn
1 1

Комментарий модератора

Текст задачи нужно напечатать. Фотографии заданий не допускаются.

Буду очень благодарен за решение этой проблемы

@ZX Spectrum-128 · 23.11.2017, 12:33

Комментарий модератора

Текст задачи нужно напечатать. Фотографии заданий не допускаются.