Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
5 страниц
84000бит=10500байт
1 символ =1байт
30*70=2100 байт - 1 страница
10500/2100 = 5 страниц
но... если учесть, что перевод строки занимает 2 байта... вычесления будут немного другими.
(70+2)*30=2160 1 страница (вместо 2100
Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Над типом integer нельзя выполнять деление. Раз тут деление, то нужен вещественный тип, а то есть real. a и b могут быть описаны и как real и как integer.
Решим задание наоборот:
52 ->7,
1) прибавь 1,
2) подели на 3.
52 + 1 = 53 (1).
53 + 1 = 54 (1).
54 : 3 = 18 (2).
18 : 3 = 6 (2).
6 + 1 = 7 (1).
Запишем команды снизу-вверх.
Ответ: 12211.