Найти разность первого и последнего компонентов файла

15.03.2011, 18:21. **Показов** 1751. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.

@Ev[G]eN · 15.03.2011, 23:21

Pascal

var
 f: text;
 arr: array[1..100] of integer;
 dir, st: string;
 i, n, code, rz: integer;
begin
 dir:='C:\Documents and Settings\Ev{G}eN\Рабочий стол\1.txt';
 assign(f, dir);
 rewrite(f);
 readln(n);
  for i:=1 to n do
   begin
    read(arr[i]);
    str(arr[i], st);
    write(f, st, ' ');
   end;
 rz:=arr[1]-arr[i];
 writeln('Разность первого и последнего элемента = ', rz);
 writeln(f, ' ');
 write(f, 'Разность первого и последнего элемента = ', rz);
 close(f);
end.

Crec
		1
	Найти разность первого и последнего компонентов файла 15.03.2011, 18:21. Показов 1751. Ответов 1 Метки нет (Все метки) Записать в файл последовательного доступа N действительных чисел. Найти разность первого и последнего компонентов файла.

Опции темы

Найти разность первого и последнего компонентов файла

Решение