Создать целочисленный файл. Вывести его на экран. Вывести сумму максимального и минимального элементов этого файла.
Условие Задачи:
Создать целочисленный файл. Вывести его на экран. Вывести сумму максимального и минимального элементов этого файла.
Program PascalGuru; Var f : File Of Integer; {описание переменных} i,n,k,max,min: Integer;
begin Assign( f ,'file1.txt'); reset(f); {подключение файла для чтения}
i:=0; {счётчик последовательности} write('Posledovatelinosti: '); while not eof(f) do {считывание всего файла до конца} begin read(f,k); {считывание текущего числа} write(k,', '); {вывод этого числа на экран} inc(i); {счётчик последовательности увеличивыаем на +1} if i=1 then begin max:=k; min:=k; continue end; {первый элемент равен и MAX / и MIN} if k>max then max:=k; {находим MAX} if k end;
writeln; writeln('Summa: ',max+min); {вывод результата на экран}