Question

Паскаль
для занесення елементів в чотиривимірний масив та знаходження суми першого рядку
Будь ласка ​

Answer 1

можна використати наступний код:

program example;

const

n = 4;

var

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

i, j, k, l, sum: integer;

begin

sum := 0;

for i := 1 to n do

for j := 1 to n do

for k := 1 to n do

for l := 1 to n do

begin

a[i, j, k, l] := i + j + k + l;

if i = 1 then

sum := sum + a[i, j, k, l];

end;

writeln(sum);

end.