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>

0 0

4 года назад

Прочитать ещё 2 ответа

Сообщение длиной 40960 символов занимает в памяти 55 Кбайт. Найдите мощность алфавита, который использовался при кодировании.

Barkala

55 кбайт = 56320 байт.
56320 байт = <span>450560 бит.
</span>информационная ёмкость одного знака в алфавите:
450560 / 40960 = 11 бит.

0 0

4 года назад

#Правильная запись формулы, вычисляющей произведение содержимого ячеек А1 и В1 в МS Excel -=А1*В1; -С1=А1*В1; -=СУММ(А1*В1); -

colonelmeow

1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы

0 0

4 года назад