Cls
pi=3.141592
for x=0 to 180 step 10
y=x * pi /180
print x, sin(y), cos(y), tan(y)
if tan(y)<>0 then print 1/tan(y) else print "не существ"
next
end
var a,b: array of integer;
i,n,lo,ss: integer;
begin
lo:=0;
ss:=1;
write('Введите количество элементов массива');
readln(n);
setlength(a,n);
setlength(b,n);
for i:=0 to n-1 do
begin
write('Ввод данных для a[',i+1,']=');
readln(a[i]);
if a[i]<0 then inc(lo) else ss:=ss*a[i];
end;
writeln('Данные массива A:');
for i:=0 to n-1 do writeln('a[',i+1,'] = ',a[i]);
writeln;
writeln('Данные массива B:');
for i:=0 to n-1 do
begin
if odd(i+1) then b[i]:=lo else b[i]:=ss;
writeln('b[',i+1,'] = ',b[i]);
end;
end.
Program q;
var a:array[1..7,1..7] of integer; min7,sum1,odd,i,k:integer; avg5:real;
begin;
randomize;
for i:=1 to 7 do begin;
for k:=1 to 7 do begin;
a[i,k]:=random(-10,10);
if a[i,k] mod 2 = 1 then odd+=1;
end;
end;
min7:=a[1,7];
for i:=1 to 7 do if a[7,i]<min7 then min7:=a[i,7];
for i:=1 to 7 do sum1+=a[i,1];
for i:=1 to 7 do avg5+=a[5,i];
avg5/=7;
for i:=1 to 7 do a[1,i]:=1;
write('Минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd);
end.
Решение в прикрепленном файле.
Вообще есть способ сразу их сложить, но он крайне сложный потому дабы особо не мучаться, переводим все в десятичную систему 56.74(8) = 46.9375(10), 123.54(16) = 291.328125(10) сложив эти числа получаем =338.265625(10) и последнее что делаем переводим в семиричную 662.16(00523416) часть в скобке это период, число далее тупо повторяется, хотя думаю округлить разрешат до сотых, решал с помощью калькулятора технического, на большинстве есть возможность перевода из одной системы счисления в другую, если знать куда нажимать