Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
var
a: real;
begin
writeln('Введите вещественное число');
readln(a); //Вводим вещественное число
if a < 0 then writeln('Модуль числа а: ', abs(a)) {Если введенное число - отрицательное, печатаем его модуль, иначе печатаем квадратный корень из этого числа с округлением до 5 знаков после запятой}
else writeln('Квадратный корень из числа а: ', sqrt(a) : 0 : 5);
end.
1)алфавит это форма письмености на основание знаков (зависит от куда ты ну конечн из россии (если не правельно сори))
2)это количество количество симболов из колторых состоит алфавит
3)незьняю=З
4)600 бит
5)килобайт-1024 байт
мегабайт-1024 килобайт
гигабайт-1024 мегабайт
терабайт-1024 гигабайт
6)количество симболов 3584
7)в 1,2 раза
Я прост пробовала (простите)
<span>Единицы измерения количества информации. Bit (бит), Byte (байт), Mb (Мб=Мегабайт), Gb (Гб=Гигабайт).
</span>Количество информации <span> - это мера уменьшения неопределенности </span>
