Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
4096 бит / 8 = 512 байт
512 байт / 1024 = 0,5 Кбайт
4. НЕ(X>5)И(X>4) это значит X<=5 и X>4, значит 4<x<=5, значит x=5 (ответ 2)
5. X>=5 и X<6, значит x=5, ответ 2.
17. Первая цифра должна быть нечётная И последняя цифра нечётная, значит ответ под номером 3
18. Первая буква не гласная И последняя буква не согласная, значит первая буква согласная и последняя буква гласная. Ответ под номером 2.
47. Кол-во гласных букв нечётно и первая - гласная. Ответ под номером 1.
48. количество гласных чётное и первая - гласная. Ответ номер 2.
Надо сложить эти числа и подилить их на n раз
Решение смотри во вложении.