Найти количество нулевых элементов в строке матрицы

@3color · Регистрация: 23.01.2012

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

Массив считывается из файла, после чего находится кол-во нулевых элементов в строке, и записывается в выходной файл. В программе всё выполняется, а файл остается пустой. Не могу найти ошибку.

Pascal

program one;
const
     n=5;
     m=8;
type mas=array[1..m] of integer;
var
   g: file of integer;
   f: file of mas;
   i,j,d: integer;
   a: mas;
begin
     assign(f,'типизированый.dat');
     reset(f);
     assign(g,'типизированый2.dat');
     rewrite(g);
     for i:=1 to n do
     begin
          for j:=1 to m do
          reset (f);
          read(f,a[i]);
          if (a[i]=0) then d:=d+1 ;  
       writeln ('Количество нулевых элементов = ',d);
          write(g,d);
     end;
     close(f);
     close(g);
end.

@Puporev · 29.01.2012, 11:44

Ты все напутал, файлы по условию текстовые, массив двухмерный.
Создаешь в одной директории с программой текстовый файл, например input.txt примерно такого содержания

Код

1 2 3 4 5 0 7 8
0 2 3 4 0 6 7 8
1 2 0 4 5 0 7 8
0 2 3 4 0 6 7 8
1 0 3 0 5 0 7 0

Программа.

Pascal

program one;
const
     n=5;
     m=8;
type mas=array[1..n,1..m] of integer;
var
   g,f: text;
   i,j,d: integer;
   a: mas;
begin
     assign(f,'input.txt');
     reset(f);
     assign(g,'output.txt');
     rewrite(g);
     for i:=1 to n do
     for j:=1 to m do
     read(f,a[i,j]);
     for i:=1 to n do
      begin
       d:=0;
       for j:=1 to m do
       if a[i,j]=0 then d:=d+1 ;
       writeln(g,'Количество нулевых элементов в строке ',i,'=',d);
      end;
     close(f);
     close(g);
end.

В результате в той же директории получишь такой файл output.txt

Код

Количество нулевых элементов в строке 1=1
Количество нулевых элементов в строке 2=2
Количество нулевых элементов в строке 3=2
Количество нулевых элементов в строке 4=2
Количество нулевых элементов в строке 5=4

	29.01.2012, 11:44