0001Гб 001МБ 2 КБ 13 байт 120 бит 0
Щас бы университетские вопросы задавать на сайте для школьников :D
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/b;
Writeln('Среднее =',srd);
end
else
Writeln('Нет положительных членов массива');
If y>0 then
begin
Writeln('Количество отрицательных элементов =',y);
end
else
Writeln('Нет отрицательных членов массива');
End.
Ответ:1Перейдите во вкладку «Ссылки».
2Кликните по клавише «Автособираемое оглавление».
3 И выберите из выпадающего списка любой из вариантов (они отличаются лишь форматом ссылок).
Думаю <em>ты поняла что к чему </em>
Пусть числа записаны в системе счисления с основанием Х, тогда получим:
3х+3+5х=
+х+3
8х+3=
+х+3
-7х=0
х=0 или х=7
Основание системы счисления не может быть равным 0, следовательно пример записан в 7-ричной системе счисления