Вывести на печать двумерный числовой массив B, элементы которого определяются формулой A(i)-3*A(j)

@Инно4ка · Регистрация: 03.02.2012

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

Дан одномерный числовой массив A(n).Вывести на печать двумерный числовой массив B(n,n),элементы которого определяются формулой: =A(i)-3*A(j).

@Puporev · 07.03.2012, 15:03

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    b:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
writeln('Массив В:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i]-3*a[j];
    write(b[i,j]:4);
   end;
  writeln;
 end;
readln
end.

@Инно4ка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 24
		1
	Вывести на печать двумерный числовой массив B, элементы которого определяются формулой A(i)-3A(j) 07.03.2012, 14:56. Показов* 1270. Ответов 1 Метки нет (Все метки) Дан одномерный числовой массив A(n).Вывести на печать двумерный числовой массив B(n,n),элементы которого определяются формулой: =A(i)-3*A(j). 0

	07.03.2012, 15:03

Вывести на печать двумерный числовой массив B, элементы которого определяются формулой A(i)-3*A(j)

Решение