while Not EOF(FileIn ) do
begin
{увеличение значения счетчика на единицу}
inc(KolichestvoStrok);
{установка счетчика столбцов начальное значение}
KolichestvoStolb:=0;
{считывание элементов массива по столбцам}
while Not EOLn(FileIn ) do
begin
{увеличение значения счетчика на единицу}
inc(KolichestvoSolb);
{считывание элементов массива}
read (FileIn, Chislo [i,j]);
end;
{превод курсора на начало новой строки при достижении конца строки}
readln (FileIn);
end;
{закрытие файла}
close(FileIn);
end;
Задание
1. Напишите программу, которая считывает данные из файла «MayFileF1.in» содержащий одномерный массив и выводит этот массив на экран компьютера, сохраните его под именем «MayFileF8.pas»
Достарыңызбен бөлісу: | 
