Question

В массиве размерностью 5х6 заменить первый нечетный элемент массива суммой четных. В паскале, если можно с блок-схемой. Умоляю

Answer 1

var

 a: array [1..5,1..6] of integer;

 i,j,sum,ip,jp:integer;

 flag:boolean;

begin

 flag:=false;

 sum:=0;

 for i:=1 to 5 do

   begin

     for j:= 1 to 6 do

       begin

         a[i,j]:=random(31)-10;

         write(a[i,j]:4);

         if a[i,j] mod 2 = 0 then

           sum:=sum+a[i,j];

         if not flag then

           if abs(a[i,j] mod 2) = 1 then

             begin

               flag:=true;

               ip:=i;

               jp:=j;

             end;

       end;

     writeln;

   end;

 a[ip,jp]:=sum;

 writeln;

 for i:=1 to 5 do

   begin

     for j:=1 to 6 do

       write(a[i,j]:4);

     writeln;

   end;

end.

Answer 2

Для замены первого нечетного элемента массива суммой четных элементов в массиве 5x6, вам потребуется написать код на языке Pascal. Вот пример такой программы с блок-схемой:

pascalCopy code
program ReplaceOddWithSum;
var
  arr: array[1..5, 1..6] of integer;
  i, j, oddValue, evenSum: integer;
begin
  // Инициализируем массив случайными значениями
  for i := 1 to 5 do
    for j := 1 to 6 do
      arr[i, j] := Random(100); // Можно использовать другой диапазон

  // Найдем сумму четных элементов и первый нечетный элемент
  evenSum := 0;
  oddValue := -1; // Значение -1, чтобы отследить, был ли найден нечетный элемент
  for i := 1 to 5 do
    for j := 1 to 6 do
    begin
      if (arr[i, j] mod 2 = 0) then
        evenSum := evenSum + arr[i, j]
      else if (oddValue = -1) then
        oddValue := arr[i, j];
    end;

  // Заменяем первый нечетный элемент суммой четных
  if oddValue <> -1 then
    arr[i, j] := evenSum;

  // Выводим массив до и после изменения
  writeln('Массив до изменения:');
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
      write(arr[i, j]:4);
    writeln;
  end;

  writeln('Массив после изменения:');
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
      write(arr[i, j]:4);
    writeln;
  end;

  readln;
end.

Этот код создает массив, заполняет его случайными числами, затем находит сумму четных элементов и заменяет первый нечетный элемент этой суммой. Наконец, он выводит массив до и после изменения.