Использование стандартных функций для работы с массивами

@~~seva0813~~ · 21.06.2011, 21:19. **Показов** 1491. **Ответов** 1

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

Дана действительная квадратная матрица размера NxM
Преобразовать матрицу следующим образом: вычесть поледнюю строку из всех строк
Поиогите решить очень буду благодарен заранее спасибо

@Сэм · 21.06.2011, 21:56

Pascal

program sam;
uses crt;
var i,j,n,m:byte;
    a:array[1..100,1..100]of integer;
BEgin
 write('Введи кол-во элементов:');
 readln(n);
 m:=n;
 writeln('Матрица:');
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to m do
  begin
   a[i,j]:=random(50);
   write(a[i,j],' ');
  end;
 end;
 for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=a[i,j]-a[n,j];
 writeln;
 writeln('Новая матрица:');
 for i:=1 to n do
  begin
  writeln;
  for j:=1 to m do
  write(a[i,j],' ');
 end;
END.

@~~seva0813~~ Заблокирован
		1
	Использование стандартных функций для работы с массивами 21.06.2011, 21:19. Показов 1491. Ответов 1 Метки нет (Все метки) Дана действительная квадратная матрица размера NxM Преобразовать матрицу следующим образом: вычесть поледнюю строку из всех строк Поиогите решить очень буду благодарен заранее спасибо 0

Опции темы

Использование стандартных функций для работы с массивами

Решение