<span>напишу так: зефир найден 12 раз, зефир или шоколад - 15. Значит, шоколад БЕЗ зефира найден 3 раза. А ещё шоколад с зефиром найден 8 раз, то есть шоколад с зефиром и без зефира найден 8+3=11 раз</span>
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
<span><span>Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i]<M[Min] then Min:=i;
Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале</span></span>
Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.
