Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
<span>Может ли многоуровневый список включать как нумерованные, так и маркированные списки?
1. Да правильный ответ
2. нет
Пример.
1. Зима
а) декабрь
б) январь
в) февраль
2. Весна
а) март
б) апрель
в) май
</span>
Информационный вес символа i=㏒₂N, где N- количество символов в алфавите.
i=㏒₂34= 5,1 бит
Количество бит может быть только целым числом, поэтому принимаем значение i=6 ( если i=5, то N=2^5= 32 символа, нам этого недостаточно)
Ответ: 6
Var
a:array[1..10] of integer;
i,d:integer;
begin
d:=1;
for i:=1 to 10 do begin
writeln(i ,' число массива = ');
read(a[i]);
if(a[i]<>0) then d:=d*a[i];
end;
writeln(' Произведение равно ', d);
end.