Просуммировать элементы квадратной матрицы , расположенные в верхней четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях. . если не трудно сделайте так: var a: array [1..10,1..100]of integer; m,n,i,j: integer; begin write ('вв m,n'); read(m,n); for i: =1 to n do for j: =1 to m do a[i,j]: = random (99); begin write ( a[i,j]: 4); end; writeln; я не знаю что в условии писать. как вообще проссумировать эти элементы : (
02Milka02
2
18.05.2019 08:40
5
Другие вопросы по теме Информатика
olesyasa1
24.02.2020 07:15
jlenabalkinaoyqk93
24.02.2020 07:51
vladavlada60
24.02.2020 06:12
manazoid
24.02.2020 05:18
starlitt
24.02.2020 03:05
lari133
24.02.2020 02:08
roofman93p08nel
24.02.2020 01:06
крис897
24.02.2020 01:26
KarakatitsaKrutitsa
24.02.2020 00:14
vishnya39
24.02.2020 00:14
Популярные вопросы
- Нагадай, будь ласка, про які професії йшлося в цьому параграфі...
1 - А чи можеш ти назвати ще професії, у яких людині потрібна до...
2 - Пригадай усі твори зі скриньки казок зарубіжних письменників....
3 - Повтори і пригадай. Упізнай за описом персонажів казок українських...
3 - Кого в наш час називають принцесою на горошині?...
3 - Пригадай прочитані казки українських письменників. Що в цих...
2 - Обери основне слово для предмета інформатика: а) комп ютер;...
3 - Опиши правильну поведінку учня в комп ютерному класі....
1 - Як принцесі вдалося переконати всіх, що вона справжня?...
3 - Прочитай вірш-загадку Дмитра Білоуса «Зашифрований хитрюга»....
3
var
a:array [1..100,1..100]of integer;
n,i,j, Summ:integer;
begin
write ('n = ');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random (99);
write ( a[i,j]:4);
end;
writeln;
end;
Summ := 0;
for i := 1 to (n div 2 + n mod 2) do
for j := i to n - i + 1 do
Summ := Summ + a[i,j];
writeln('Summ = ', Summ);
readln;
end.