1) Относительная абсолютная смешанная
2) =$D3-C3 изменится нумерация строк
3) только г) =A$1
4) см.задание 1 (относительная =U99 , абсолютная =$U$99 , смешанная =$U99, =U$99
5) =$A$5*B8
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Меню на котором располагается весь основной контент
<u>Ответы:</u>
1)40 байт
2)Довольно странная задача. При просмотре ответов возникает естественный вопрос: откуда взялась папка "Кино"?
При самостоятельном решении у меня вышло D:/ФАНТАСТИКА/ГОЛЛИВУД.
Однако среди ответов этого варианта нет, поэтому выбираем наиболее приближенный к найденому, а именно - вариант №1.
Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.