|
пред. задача:
uses
crt;
var
a:array[0..9,0..9] of integer;
i,j,k,t:integer;
begin
clrscr;
randomize;
for i:=0 to 9 do begin
for j:=0 to 9 do begin
a[i,j]:=random(10);
{write(a[i][j]); - для вывода массива на экран}
end;
{writeln; - для вывода массива на экран}
end;
for i:=0 to 9 do
t:=t+a[i,i];
writeln(t);
readln;
end.
с трехмерным массивом (если это матрица третьего порядка) :
uses
crt;
var
a:array[0..9,0..9,0..9] of integer;
i,j,k,t:integer;
begin
clrscr;
randomize;
for i:=0 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
a[i,j,k]:=random(10);
for i:=0 to 9 do
t:=t+a[i,i,i];
writeln(t);
readln;
end.
Давно на паскале ничего не писал.
Добавлено через 5 минут:
Покя я тут печатал ответ, Ghost упел тоже напечатать решение пред. задачи.
P.S. То что заключено в {} можешь не печатать.
Добавлено через 3 минуты:
Жду ещё задачек поинтереснее. Мож чё ещё на с++ написать?
|