Обработка двухмерных массивов

@Emily H · Регистрация: 21.03.2017

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить задачу:
Поменять местами максимальный элемент из массива с минимальным элементом массива
Вычислить сумму нечетных элементов из второй колонки

@Hitoku · 21.03.2017, 21:33

Pascal

const n=5;
var
  a:array[1..n,1..n] of integer;
  i,j,max,min,sum,imax,imin,jmax,jmin,c:integer;
begin
  randomize; max:=-1; min:=51; sum:=0;
  imax:=1; imin:=1; jmax:=1; jmin:=1;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(51); write(a[i,j]:4,' ');
      if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
      if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
    end; writeln;
  end;
  writeln('Max = ',max,'[',imax,',',jmax,']; Min = ',min,'[',imin,',',jmin,']');
  c:=a[imax,jmax]; a[imax,jmax]:=a[imin,jmin]; a[imin,jmin]:=c;
  for i:=1 to n do begin
    for j:=1 to n do begin
      write(a[i,j]:4,' ');
      if (j=2) and (odd(i)) then sum:=sum+a[i,j];
    end; writeln;
  end;
  writeln('Сумма = ',sum);
end.

@Emily H 0 / 0 / 0 Регистрация: 21.03.2017 Сообщений: 1
		1
	Обработка двухмерных массивов 21.03.2017, 21:19. Показов 919. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачу: Поменять местами максимальный элемент из массива с минимальным элементом массива Вычислить сумму нечетных элементов из второй колонки 0

Опции темы

Обработка двухмерных массивов

Решение