Решение
gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?
Добавлено через 35 минут
gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program mas1;
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,i,j,sum,sum1: integer;
begin
randomize;
write('Ââåäèòå ðàçìåð ìàòðèöû n: ');
readln(n);
writeln('Ìàòðèöà:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(150)-50;
write(a[i,j]:5);
end;
writeln;
end;
sum:=0;
sum1:=0;
j:=1;
for i:=1 to n do
sum:=sum+a[i,i];
for i:=n downto 1 do
begin
sum1:=sum1+a[i,j];
j:=j+1;
end;
writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);
writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);
writeln;
end.
0
a=2 и b=3
Объяснение:
Смотрим, наблюдаем.
Что происходит в коде?
// - это означает комментарий, который никак не читается компилятором
Program pl; // Называем программу "pl"
Var a,b:integer; // Объявляем переменные. То есть, например, a -это место в памяти компа, мы присвоили ей тип интеджер, что дает нам права присваивать этой переменной исклчительно целочисленные значения, например, 2, -8
procedure fl (x,y:integer); // Создаем процедуру под названием fl. Что такое процедура? Набор действий, которые позже можно выполнить из этой процедуры.
begin
y:=2*x+3;
end;
procedure f2 (var x, y:integer);
begin
x:=3*y+1;
end;
begin
fl(b,a); Мы вызвали эту процедуру (fl) x присваиваем значение b, у значение а. Но так как к данному моменту а и b пусты, ничего не происходит...
end;
a:=2; b:=3;
writeln (‘а=,a,’ b=’,b) // Так как ваш препод не смог грамотно построить задачу, а, по-прежнему, равно 2, а б, по-прежнему, равно 3.
end.
