Цитата:
Сообщение от Boginy
1) Даны целое число n и целочисленный одномерный массив a1,a2,..., an. Поучить двухмерный массив, элементы которого вычисляются по формуле bij = ai + 3aj , где i = 1, 2,...., n
|
Допущение: пусть максимальное количество элементов массива а будет равно 100 (для проверки достаточно и 10).
Код:
uses crt;
var a: array[1..100] of integer;
b: array[1..100,1..100] of integer;
i, j,n: integer;
begin
write('введите размерность массива а');
readln(n);
writeln('Заполните элементы массива а значениями');
for i:=1 to n do
readln (a[i]);
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],' '); end;
writeln; end;
readln
end.