Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore
Function Sign(x:real):integer;
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
<span>a, b:
-8 0
Sign(A) + Sign(B) = -1</span>
1. 1111₂+1100₂=11011₂ - ответ.
2. Рассмотрим каждое утверждение:
Если истинно утверждение, что "А делится на 55", тогда истины и 2 первых утверждения, потому что 55/5=11 55/11=5 - получается уже 3 истины, значит это ложное высказывание.
Если истинно высказывание: "А меньше 10", тогда <u>"А делится на 11" - ложь</u>. Отсюда истинная пара: "А меньше 10" и "А делится на 5".
Иначе, если "А меньше 10" - ложь, тогда остается пара: "А делится на 5" и " А делится на 11", но эта пара истинной быть не может, потому как если А делится на 11 и 5, то 11 должно делится на 5.
<u>Ответ: A=5</u>
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.