Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>
1) Эта программа называется "Логомиры"
2) Что за координаты креста?
3) Скорее всего по стандарту в Декартовой системе координат (0;0)
Получится машина
если / указывало место курсора
Для размещения 64х знаков требуется 6 бит (64=2*6). Количество символов равно 50*40*3=6000. Если считать, что каждый знак хранится именно в шести битах, как требуется, то понадобится 6*6000=36000 бит или
36000/8-4500 байт, что составит 4500/1024=4.39 КБайт. Если считать, что каждый знак занимает байт (т.е. 8бит), как это обычно принято в компьютерах, то понадобится 6000 байт (столько, сколько символов), или 6000/1024=5.86 КБайт.
Const i = 6;
var x, h,y, max,k : real;
begin
k:=0;
h:= 0.01*i;
x:=0;
max:= sin(x+i);
writeln ('x':6, 'y':6);
repeat
y:= sin(x+i);
writeln(x:7:2, y:7:2);
if y > max then max:=y;
if y < 0 then k:=k+1;
x:= x + h;
until x > i + h/2;
writeln('max =', max:5:2);
writeln('Количество отрицательных=',k);
<span>end.</span>