Задан массив x(K) вещественных чисел. найти коллво k2 элементов четных. если k2>0 ,...

Question

Задан массив x(K) вещественных чисел. найти коллво k2 элементов четных. если k2>0 , заменить min элемент массива на значение k2. вывести x, min, k2 на экран

ПАСКАЛЬ

Answer 1

Const
  k = 5;

var
  x: array [1..k] of integer;
  i, min_index, k2: integer;

begin
  writeln('Enter x:');
  for i := 1 to k do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
  end;
 
  min_index := 1;
  k2 := 0;
  for i := 1 to k do
  begin
    if x[min_index] > x[i] then
      min_index := i;
    if x[i] mod 2 = 0 then
      k2 := k2 + 1;
  end;
 
  if k2 > 0 then
    x[min_index] := k2;
    
 
  writeln('x:');
  for i := 1 to k do
    writeln('x[', i, '] = ', x[i]);
  writeln('k2 = ', k2);
  writeln('min = ', x[min_index]);
end.