Разделить элементы каждого столбца заданной матрицы на последний элемент столбца

@Doc....99 · Регистрация: 11.03.2012

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

Разделить элементы каждого столбца заданной матрицы B на последний элемент столбца

Комментарий модератора

Удалил вопросы, дублирующие другую тему

.

@tm2012 · 11.03.2012, 14:08

Сообщение от Doc....99

Разделить элементы каждого столбца заданной матрицы B на последний элемент столбца

Pascal

uses crt;
var mas:array[1..100,1..100] of real;
i,j,x,y:integer;
begin
clrscr; randomize;
write('Кол-во строк: '); readln(x);
write('Кол-во столбцов: '); readln(y);
writeln('Исходная матрица:');
for i:=1 to x do begin
for j:=1 to y do begin mas[i,j]:=20*random(20);
write(mas[i,j]:5:0); end;
writeln; end;
writeln(#13#10,'Новая матрица:');
for i:=1 to x do begin
for j:=1 to y do begin if mas[x,j]<>0 then mas[i,j]:=mas[i,j]/mas[x,j];
write(mas[i,j]:8:2); end;
writeln; end;
readkey;
end.

@Doc....99 · 11.03.2012, 14:17 **[ТС]**

Спасибо

@Doc....99 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 64
	11.03.2012, 14:17 [ТС]	3
	Спасибо 0

Опции темы

Разделить элементы каждого столбца заданной матрицы на последний элемент столбца

Решение