Викторина by [FATHER]

Serega Pavlov

Давай еще)

СаНо

Xarek, у стола гусиные то , но ПЕРЬЯ !!!! перо - перо )) разницы не вижу)))

Добавлено через 00:32 мин.
%(red)[Найти сумму элементов лежащих по главной диогонали и произведение элементов лежащих по побочной диагонали. Напишите пограмный код
Награда +100500 монет шучу 20 монет награда ]

Xarek

**F A T H E R** 
**Xarek**, :horror: :horror: :horror: у стола гусиные то , но ПЕРЬЯ !!!! перо - перо )) разницы не вижу))) :fthat:

да я хз в гугле так написано

СаНо

Xarek,

Xarek

**F A T H E R** 
**Xarek**, :horror: :horror: :horror: у стола гусиные то , но ПЕРЬЯ !!!! перо - перо )) разницы не вижу))) :fthat:

*Добавлено через 00:32 мин.*
%(red)[Найти сумму элементов лежащих по главной диогонали и произведение элементов лежащих по побочной диагонали. Напишите пограмный код :trollface: 
Награда +100500 монет :fthat: :fthat: шучу 20 монет награда :kidding:]

ЧЁ ?

СаНо

Xarek, это вопрос))

Serega Pavlov

Я тоже так думаю)

Xarek

Бля я заебусь код писать

Добавлено через 00:22 мин.
Да мне и впадлу за 20 монет то

СаНо

Xarek

**F A T H E R** 
:trollface:

Шутник :D:

armuni

Код Delphi
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
procedure TForm1.FormCreate(Sender: TObject);
const
m=5;
var
s:string;
i,j,sum,n:integer;
avg:real;
a:array [1..m,1..m] of integer;
begin
memo2.Lines.Clear;
s:='';
sum:=0;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=RandomRange(-m,m);
s:=s+IntToStr(a[i,j])+' ';
sum:=sum+a[i,j];
end;
memo2.Lines.Add(s);
s:='';
end;
avg:=sum/(m*m);
memo2.Lines.Add('sum='+IntToStr(sum));
memo2.Lines.Add('avg='+FloatToStr(avg));
n:=0;
for i:=1 to m do
for j:=1 to m do
if a[i,j]>avg then
Inc(n);
memo2.Lines.Add('n='+IntToStr(n));

Vladik Grobovoy

код?)

or i:=1 to n do
sum := sum + a[i, n-i+1];

Xarek

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
procedure TForm1.FormCreate(Sender: TObject);
const
m=5;
var
s:string;
i,j,sum,n:integer;
avg:real;
a:array [1..m,1..m] of integer;
begin
memo2.Lines.Clear;
s:='';
sum:=0;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=RandomRange(-m,m);
s:=s+IntToStr(a[i,j])+' ';
sum:=sum+a[i,j];
end;
memo2.Lines.Add(s);
s:='';
end;
avg:=sum/(m*m);
memo2.Lines.Add('sum='+IntToStr(sum));
memo2.Lines.Add('avg='+FloatToStr(avg));
n:=0;
for i:=1 to m do
for j:=1 to m do
if a[i,j]>avg then
Inc(n);
memo2.Lines.Add('n='+IntToStr(n));
end;

СаНо

я сам правильного ответа не знаю

Xarek

**F A T H E R** 
я сам правильного ответа не знаю :trollface: :trollface: :trollface: :xaxa: :xaxa: :xaxa:

Ну ты троль