Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива

17.09.2012, 20:09. **Показов** 816. **Ответов** 1

Помогите плиз! Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива!

@CodeR · 17.09.2012, 20:41

Pascal

Var f:text;
    m,max,min:integer;
    c:char;
Begin
    Assign(f,'in.txt');Reset(f);
    read(f,m);{Считываем первое число в m}
    read(f,c);{Пропускаем пробел}
    max:=m;min:=m;{max и  min присваиваеи это число для сравнения дальнейшего}
    While not Eof(f) do
     Begin
      read(f,m);{Считываем очередное число}
      if not Eof(f) then read(f,c);{если не конец файла пропускаем пробел}
      if m>max then max:=m;
      if m<min then min:=m;
     End;
    writeln('Max: ',max);
    writeln('Min: ',min);
End.

Fanat1993
		1
	Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива 17.09.2012, 20:09. Показов 816. Ответов 1 Метки нет (Все метки) Помогите плиз! Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива! __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь

Опции темы

Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива

Решение