Заполнить матрицу

@RUS72 · Регистрация: 19.10.2009

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

Помогите пожалуйста!

@Puporev · 26.11.2009, 21:35

RUS72, Кое у кого стоит Офис 2003.

@RUS72 · 26.11.2009, 21:43 **[ТС]**

Пожалуйста)

@RUS72 · 26.11.2009, 22:10 **[ТС]**

Puporev, поможешь???

@Puporev · 26.11.2009, 22:25

Pascal

uses crt;
const n=6;
      m=9;
var a:array[1..n,1..m] of real;
    x:array[1..m] of real;
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Массив Х:');
for i:=1 to m do
 begin
  x[i]:=4*random+1;
  write(x[i]:8:1);
 end;
writeln;
writeln;
for j:=1 to m do
a[1,j]:=x[j];
for j:=1 to m do
for i:=2 to n do
a[i,j]:=a[i-1,j]*x[j];
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:8:1);
  writeln;
 end;
readln
end.

@RUS72 · 26.11.2009, 22:34 **[ТС]**

Спасибо большое!

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	26.11.2009, 21:35	2
	RUS72, Кое у кого стоит Офис 2003. 0

@RUS72 12 / 12 / 14 Регистрация: 19.10.2009 Сообщений: 52
	26.11.2009, 22:10 [ТС]	4
	Puporev, поможешь??? 0

@RUS72 12 / 12 / 14 Регистрация: 19.10.2009 Сообщений: 52
	26.11.2009, 22:34 [ТС]	6
	Спасибо большое! 0

Опции темы