Const n=20;
var i:integer;
sl,sg:longint;
x:real;
a:array[1..n] of integer;
begin
Randomize;
for i:=1 to n do a[i]:=random(1000)-500; // Случайные числа от -500 до 500
sl:=0; sg:=0;
writeln('Введите число Х');
readln(x);
for i:=1 to n do
if a[i]<x then sl:=sl+abs(a[i]) else sg:=sg+abs(a[i]);
writeln('Сумма меньших: ',sl,' Сумма больших: ',sg)
end.
Пример решения:
Введите число Х
25
Сумма меньших: 1731 Сумма больших: 2407
Информационная война-это когда хакеры из разных стран пытаются взломать друг друга, сайты правительства, какие нибудь сервера, и пытаются завладеть важной информацией, происходят ddos атаки на правительственные сайты и так далее.
Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.
Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит <u>NEXT</u>, хотя команды <u>FOR</u> до этого не было - ошибка.
Я написал програмку так как я понял с нечетными числами:
CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.