Поменять местами минимальный и максимальный элементы массива

Sangeta

Поменять местами минимальный и максимальный элементы массива v[25], подсчитать количество четных элементов массива.Помогите с этим заданием пожалуйста и если можно скиньте скрин.
2 ответа

Sangeta

const
  arraySize = 25;
var
  Arr: Array[1..arraySize] of Integer;
  Count, i_min, i_max, i: Byte;
  temp: Integer;
begin
  Randomize;
  i_min:=1; i_max:=1;
  writeln('Массив: ');
  for i:=1 to arraySize do
  begin
    Arr[i]:=Random(25) - 10;
    if (Arr[i] < Arr[i_min]) then
      i_min:=i
    else if (Arr[i] > Arr[i_max]) then
      i_max:=i;
    if (Arr[i] mod 2 = 0) then
      Inc(Count);
    write(Arr[i], ' ');
  end;
  writeln;
  temp:=Arr[i_min];
  Arr[i_min]:=Arr[i_max];
  Arr[i_max]:=temp;
  writeln('Массив: ');
  for i:=1 to arraySize do
    write(Arr[i], ' ');
  writeln;
  writeln('Четных: ', Count);
end.


Sangeta

Спасибо оч помог )