while Not EOF (Fileln)do
begin
{санауыштың мәнiн бiрге арттыру}
inc(Sanau Jol);
{бағанда санауыштың бастапқы мәнi}
SanauBagan:=0;
{массив элементтерiн жол бойынша оқу}
while Not EOF (Fileln)do
begin
{санауыштың мәнiн бiрге арттыру}
inc(Sanau Bagan);
{массив элементтерiн оқу}
read(Fileln, San[i,j]);
end;
{курсорды жаңа жолдың басына қою}
read(Fileln, San[i,j]);
end;
{файлды жабу}
close(Fileln);
end;
Достарыңызбен бөлісу: |
