Определить четные и нечетные числа и поменять их местами. [Доработать] - Pascal ABC

  1. Создайте файл целых чисел, записав в него произвольное кол-во чисел, неравных 0. Ввод с клавиатуры, окончание ввода 0. Определить кол-во четных и не четных чисел. Поменяйте местами первый четный с последним нечетным элементом файла. Мой пример кода я только не смог решить последний пункт обмен.


textual

Код:

Program z1;
 
Var f: file of integer;
    chet, nchet, a: Integer;
Begin
assign(f, 'F:/list.dat');
rewrite(f);
WriteLn('Признак оканчания ввода 0');
 Repeat
  Write('Введите число: ');
  ReadLn(a);
  If a <> 0 then Write(f, a)
 Until a=0;
close(f);
reset(f);
chet := 0;
nchet := 0;
while not(eof(f)) do
 begin
  read(a);
  If a mod 2 = 0 Then inc(chet) Else inc(nchet)
 end;
Write(#13,#10,'Кол-во четных цифр: ',chet,#13,#10' Кол-во не четных цифр: ',nchet);
End.


Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.