Var
c:array [1..20] of integer;
i,n:integer;
Begin
randomize;
for i:=1 to 20 do
c[i]:=random(50);
for i:=1 to 20 do
write(c[i],' ');
for i:=1 to 20 do
if c[i] mod 5=0 then n:=n+c[i];
writeln;
writeln('Сумма: ',n);
<span>End.</span>
80+80= 160 строк ( 2 страницы вместе) 32+32=64 символа
160+64= 224 символа на 2 страницах! 224×8= 1792 бита (сори) (
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
<span>Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания</span>