Serafa_Timur

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2013г.
}

Program Serafa_Timur; uses crt;

const n=10; {Кол-во чисел в строке}
      k=2; {Кол-во строк}

var ave:array [1..k] of real; {Среднее арифметическое значение строки}
    count:array [1..k] of byte; {Кол-во элементов больше ср.арифметич.}
    i,j,x:longint;
      mas:array[1..k, 1..n] of integer; {Содержимое файла}

      f1,f2:text; {Исходный файл/файл с отчетом}

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Assign(F1,'InPut.txt'); {Исходный файл}
ReWrite(F1); {Создаем и открываем файл для записи}

for i:=1 to k do
    Begin clrscr;
      Write('--------------------------------------------------------------------------------');
      Writeln(' Введите числа ',i:2,'-й строки: ');
    for j:=1 to n do
        Begin
            Repeat
        Write(' Введите ',j:2,'-е число: '); Readln(X);

            if ((X < 0) or (X > 100)) then Writeln(' Ошибка :( Число должно принадлежать диапазону [0..100]! Повторите ввод...');

        Until ((X >= 0) and (X <= 100));

            Write(F1,X,' ') {Записываем в файл InPut.txt}
        end;
      if (i <> k) then Writeln(F1,''); {Переводим курсор на следующую строку}
      end;
Close(F1); {Закрываем файл InPut.txt}

Write('--------------------------------------------------------------------------------');
GotoXY(21,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Reset(F1); {Открываем файл для чтения InPut.txt}
for i:=1 to k do
    Begin
    for j:=1 to n do
          Begin
            Read(F1,Mas[i,j]); {Заполняем двумерный массив из файла InPut.txt}
            Ave[i]:=Ave[i]+Mas[i,j]; {Считаем сумму элементов строки}
            end;
      Ave[i]:=Ave[i]/N; {Получаем среднеарифметическое}
      end;
Close(F1); {Закрываем файл}

Delay(750); Writeln(' Выполненно 25%  | Данные успешно загружены...');
Delay(950); Writeln(' Выполненно 50%  | Среднеарифметическое значение найдено...');

for i:=1 to k do Count[i]:=0; {Обнуляем значения массива}

Assign(F2,'OutPut.txt'); {Файл с очетом OutPut.txt}
ReWrite(F2); {Создаем и открываем файл для записи}
for i:=1 to k do
    Begin
    for j:=1 to n do if (Mas[i,j] > Ave[i]) then Inc(Count[i]);
      Write(F2,'Среднеарифметическое значение ',i:2,'-ой строки: ',Ave[i]:8:5);
    Writeln(F2,'. Кол-во элементов больше среднеарифметического: ',Count[i]:2);
     end;
Close(F2); {Закрываем файл OutPut.txt}

Delay(650); Writeln(' Выполненно 75%  | Файл OutPut.txt успешно создан...');
Delay(800); Writeln(' Выполненно 100% | Отчет успешно составлен...');
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.