Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
Целая программа на паскале:
const
a: array [1..4, 1..4] of integer =
((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var
i, j: integer;
begin
writeln('matrix:');
for i := 1 to 4 do begin
for j := 1 to 4 do write(a[i,j]:4);
writeln;
end;
writeln;
writeln('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]);
end.