Даны целые числа а1, а2, а3. Получить целочисленный массив В[1 ... 3, 1 ... 3], для которого B[i, j]=ai-3aj.

Question

Информатика

Эгина

8 марта, 19:12

Даны целые числа а1, а2, а3. Получить целочисленный массив В[1 ... 3, 1 ... 3], для которого B[i, j]=ai-3aj.

+3

Ответы (1)

Знаете ответ на вопрос?

Катуня · Answer 1

const n=3;

var i, j:integer;

a:array[1 ... n] of integer;

b:array[1 ... n, 1 ... n] of integer;

begin

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]:4) ;

end;

writeln;

end;

end.