С клавиатуры в файл вводятся целые числа. Вычислить и вывести на экран разность первого и последнего элементов, а также их произведение.
Решение:
| 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. |
Я уже 3 года торгую фьючерсами на Bybit и приглашаю тебя присоединиться и получить до $30 000 бонусами плюс скидки на комиссии:
Зарегистрироваться на Bybit
Чем больше депозит – тем больше бонусов. Также моим рефералам доступны торговые боты для трейдинга по самым выгодным тарифам.