С клавиатуры в файл вводятся целые числа. Вычислить и вывести на экран разность первого и последнего элементов, а также их произведение.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
program file_13;
uses crt; var x, i, n, first, last: integer; f: file of integer; begin clrscr; assign(f, ‘file’); write(‘Количество чисел > ‘); read(n); rewrite(f); for i:=1 to n do begin write(i, ‘ число > ‘); read(x); write(f, x); end; reset(f); i:=1; while not eof(f) do begin read(f, x); if i=1 then first:=x else if i=n then last:=x; i:=i+1; end; writeln(first, ‘-‘, last, ‘=’, first—last); write(first, ‘*’, last, ‘=’, last*first); close(f); readkey; end. |