Program prim;
Var A:array[1..10] of integer;
i,N,S:integer;
begin
Writeln('Ввод N');
Readln(N);
For i:=1 to N do
begin
Writeln('Ввод ',i, ' эл.массива');
Readln(A[i]);
end;
S:=0;
For i:=1 to N do
S:=S+A[i];
Writeln('S = ', S);
Readln;
end.
Var ar:array[1..10] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,2);
writeln(ar[i]);
if ar[i]=1 then inc(k);
end;
writeln('Result:',k);
end.
128 кбайт 1024*1024= ....... .......\8=.......\1024= 128
1.
<span>Выделено 6 ячеек, цветом отличается B3</span>
2.
Выделено 4 ячейки, цветом отличается А6
3.
<span>Выделено 4 ячейки, цветом отличается E8</span>
4.
<span>В ячейке F7
содержится формула =(E6+E7)*$D$4</span>
5.
<span>В ячейке D2
содержится формула =$A2+B$5</span>
В ячейке Е4 пусто
<span>
</span>