[Pascal] Считать текстовый файл

[Sazary]

что такое inc(j); ?

Инкремент. Увеличивает аргумент на единицу.
Аналогично

j := j + 1;

if i<4 then writeln(f);

Это нужно, чтобы не было пустой строки после матрицы.

 inc(j);  // увеличиваем j 
 if j>8 then  // если j>8, то есть строка заполнена...
  begin
  inc(i);  // увеличиваем номер строки
  j := 1;  // и переходим к 1-му столбцу
  writeln;  // переводим строку на экране
  readln(f);  // и считываем символ перевода строки из файла
  end;

[Рамик]

спасибо!

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'massiv.txt');
reset(f);
i := 1;
j := 1;
While not(eof(f)) do
 begin
 read(f,a[i,j]);
 write(a[i,j]:4);
 inc(j);
 if j>8 then
  begin
  inc(i);
  j := 1;
  writeln;
  readln(f);
  end;
 end;
close(f);
readln;
end.

а куда мне теперь вставить

if frac(a[i,j])=0 then sum:=sum+a[i,j];

?
это нужно было найти сумму четных элементов массива...

[Sazary]

Сообщение от Рамик

а куда мне теперь вставить

После считывания элемента:

read(f,a[i,j]);

[Рамик]

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

После считывания элемента:

read(f,a[i,j]);

СПАСИБО ТЕБЕ БОЛЬШОЕ ВСЕ РАБОТАЕТ!!!

P.S. хотел нажать на весы, но просит что бы я кому нибудь еще сказал спасибо прежде чем сказать тебе...