Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
А) A = 3, B = 4, C = 5
НЕ (3=4) ИЛИ НЕ (3<5) ⇒ НЕ Ложь ИЛИ НЕ Истина ⇒ Истина ИЛИ Ложь ⇒ Истина
Б) A = -2, B = -2, C = 0
НЕ (-2=-2) ИЛИ НЕ (-2<0) ⇒ НЕ Истина ИЛИ НЕ Истина ⇒ Ложь ИЛИ Ложь ⇒ Ложь
В) A = 0, B = 0, C = -2
НЕ (0=0) ИЛИ НЕ (0<-2) ⇒ НЕ Истина ИЛИ НЕ Ложь ⇒ Ложь ИЛИ Истина ⇒ Истина
Г) A = -2, B = 0, C = -2
НЕ (-2=0) ИЛИ НЕ (-2<-2) ⇒ НЕ Ложь ИЛИ НЕ Ложь ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>Б) A = -2, B = -2, C = 0 </span>
Глобус считается документом . сом ларчик не является.
Program start;
var a:integer;
begin
readln(a);
writeln(a,a);
end.