<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
150 ЭТО 1200 БИТ
20*30=600
600 ЭТО 4800 БИТ
1200*4800=5 760 000 БИТ
ОТВЕТ В БАЙТАХ: 90 000 БАЙТ
Алгоритмы - это проще, чем кажется. Нужно просто выполнять действия в строгом порядке.
i=1 S=0
Если i<=5 то
S = s+i*i
i = i+1
Иначе(если условие если не верно):
Выход из программы(стрелочка никуда не ведёт)
Получается так:
i=1 s =0
Если 1<=5 --> верно тогда
s = 0 +1*1 = 1
i =1+1 = 2
--------------------------------------------
Если 2<=5 --> верно тогда
s = 1 +2*2 = 5
i =2+1 = 3
--------------------------------------------
Если 3<=5 --> верно тогда
s = 5 +3*3 = 5+9 = 14
i =4
--------------------------------------------
Если 4<=5 --> верно тогда
s = 14 +4*4 = 14+16 = 30
i =5
--------------------------------------------
Если 5<=5 --> верно тогда
s = 30 +5*5 = 30+25 = 55
i =6
--------------------------------------------
Если 6<=5 --> не верно тогда
Выход из программы
Ответ: S = 55
При использовании палитры из 4 цветов для хранения одной точки изображения требуется log(2)4 = 2 бита.
Объем видеопамяти:
640*350*2 бит = 448000 бит = 448000/8 байт = 56000 байт