Массив в Turbo Pascal

@Ростислав228 · Регистрация: 13.12.2018

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

Здравствуйте, прошу помочь мне. Задачку задали мне, и не могу понять как её решить. Собственно вот она:
Задано массив X[1:9]. Заполнить массив A[6:9] за следующим правилом: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{i,j}={x}^{j}_{i}$

@Puporev · 21.12.2018, 17:24

i=6, а массив x[1..9], следовательно не x_i^j, a x_jⁱ

Добавлено через 5 минут

Pascal

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

@Ростислав228 0 / 0 / 0 Регистрация: 13.12.2018 Сообщений: 18
		1
	Массив в Turbo Pascal 21.12.2018, 15:58. Показов 430. Ответов 1 Метки нет (Все метки) Здравствуйте, прошу помочь мне. Задачку задали мне, и не могу понять как её решить. Собственно вот она: Задано массив X[1:9]. Заполнить массив A[6:9] за следующим правилом: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{i,j}={x}^{j}_{i}$ 0

	21.12.2018, 17:24