Синформатикой 20 ! ввести c клавиатуры массив из 5 элементов, определить преобладание положительных или отрицательных элементов. пример: введите пять чисел: 4 -15 3 -10 14 положительных элементов больше на 1

1234fghh 1234fghh    3   19.09.2019 17:10    0

Ответы
Vera4441 Vera4441  08.10.2020 02:38
Const N=5;
var a: array [1..N] of integer;
i,j,s,d,b: integer;
begin

s:=0;
j:=0;
for i:=1 to N do readln(a[i]);
for i:=1 to N do

if a[i] < 0 then
begin
s:=s+1;
end
else
j:=j+1;
if j = 0 then
begin
writeln('положительных чисел нет');
end
else
if s = 0 then
begin
writeln('отрицательных чистел нет');
end
else
begin
if j > s then
begin
d:=j-s;
writeln('положительных больше на ' + d);
end
else
begin
b:=s-j;
writeln('отрицательных больше на ' + b);
end
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика