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>
http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
4096 кб/с, это 4/4. 3072кб это 3/4. Ответ: 0.75сек
Program w;
var a,b,c,s:real;
begin
writeln('Введите a,b');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=(a*b)/2;
writeln('Гипотенуза:');
writeln(c:4:2);
writeln('Площадь:');
writeln(s:4:2);
end. <span>
</span>
256 = 2^8 т.е. 8 бит на пиксель