Вот, сорян что фото, потому что Знания говорят что там есть запрещённые слова.
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ответ:
var
i,j,sum:integer;
a:array[1..10,1..10] of integer;
begin
randomize;
//Заполним массив случайными числами
for i:=1 to 10 do
for j:=1 to 10 do
begin
a[i,j]:=random(100)-50;
end;
//Выведем массив
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(a[i,j],' ');
end;
writeln;
end;
//Вычислим сумму
sum:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
for j:=1 to 10 do
begin
if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];
end;
end;
writeln('Result: ',sum);
Объяснение:
https://onlinegdb.com/SyR-nu_fU
//Ввод с клавиатуры
var
i,j,sum:integer;
a:array[1..10,1..10] of integer;
begin
randomize;
//Заполним массив случайными числами
for i:=1 to 10 do
for j:=1 to 10 do
begin
// a[i,j]:=random(100)-50;
//сделаем ввод с клавиатуры
readln(a[i,j]);
end;
//Выведем массив
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
write(a[i,j],' ');
end;
writeln;
end;
//Вычислим сумму
sum:=0;
for i:=1 to 10 do
begin
if i mod 2 = 0 then
for j:=1 to 10 do
begin
if a[i,j]<0 then sum:=sum+a[i,j]*a[i,j];
end;
end;
writeln('Result: ',sum);
end.
#Python 3.5.2
import math
x, y, z = int(input('x = ')), int(input('y = ')), int(input('z = '))
print ('a = ', (3+<span>2.71828**(y-1))/(1+x*x*abs(y-math.tan(z)))</span>)
print ('b = ', 1+abs(y-x)+(y-x)**2/2+(y-x)**3/3)