Так как Вы не уточнили какой Вы хотите что б был вывод на екран, то я буду выводить число а, б или с. (Писал на паскале ABC)
код программы на паскале:
<span>var</span> a<span>,</span>b<span>,</span>c<span>:</span><span>real</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>; <span>writeln</span><span>(</span><span>'Введите b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите c'</span><span>)</span>;
<span>readln</span><span>(</span>c<span>)</span>;
<span>if</span><span>(</span>a>b<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'a - наибольшее число'</span><span>)</span><span>else</span><span>if</span><span>(</span>b>a<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'b - наибольшее число'</span><span>)</span><span>else</span><span>writeln</span><span>(</span><span>'c - наибольшее число'</span><span>)</span>;
<span>readln</span>;
<span>end</span>.
Рад был помочь) Пишите)
фигурные скобки используются для инициализации функции main. без скобок программа не заработает
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
Если считать, что в каждом варианте должна быть минимум одна курица или собака, то таких вариантов 15, а если можно считать, что кого-то из них 0, то 17.
Первый файл - без нулей, второй - с нулями