Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
Log2(16) = 4 бит
log2(2) = 1 бит
4/1 = 4 раза
21 кбайт * 4 раза = 84 кбайт был размер у того
Var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,' ',y1:5:3);
writeln(2,' ',y2:5:3);
for i:=3 to n do
begin
yn:=1/6*(y2+1/y1);
writeln(i,' ',yn:7:5);
y1:=y2;
y2:=yn;
end;
end.
Пример:
5
<span>1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009</span>
1 - в
2 - а
3 - б вроде как ячейка содержит 1 байт = 8 бит
4 - вообще-то все они энергозависимы для чтенья и записи. Не понятно что имеется ввиду
5 - в