• С клавиатуры вводится матрица целых чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Переписать строки с нечетными номерами в обратном порядке. Вывести результаты.
    решить кумир/паскаль

Ответы 1

  • var a:array[1..10,1..20] of integer;n,m,k,i,j:integer;beginwrite('n = '); readln(n);write('m = '); readln(m);for i:=1 to n do for j:=1 to m do  begin   write('a[',i,',',j,'] = ');   readln(a[i,j]);  end;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4,' '); writeln; end;for i:=1 to (n+1) div 2 do for j:=1 to m div 2 do  begin k:=a[2*i-1,j]; a[2*i-1,j]:=a[2*i-1,m-j+1]; a[2*i-1,m-j+1]:=k; end;writeln('Измененный массив:');for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4,' '); writeln; end;end.Пример:n = 3m = 4a[1,1] = 2a[1,2] = -4a[1,3] = 0a[1,4] = 7a[2,1] = 6a[2,2] = 9a[2,3] = -4a[2,4] = -9a[3,1] = -4a[3,2] = 0a[3,3] = -7a[3,4] = 0Исходный массив:   2   -4    0    7    6    9   -4   -9   -4    0   -7    0 Измененный массив:   7    0   -4    2    6    9   -4   -9    0   -7    0   -4 
    • Автор:

      boone
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years