var s,i,n,a:integer;
BEGIN
read(a,n);
s:=1;
for i := 1 to n do
s:=s*a;
writeln('a в степени n = ',s);
s:=1;
for i := 1 to n do
s:=s*i;
writeln(s);
s:=0;
for i:= 1 to n do
begin
read(a);
s:= s + a;
end;
writeln('среднее арифметическое = ',s/n)
END.
Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.
Сфотай получше!!!!!!!!!!!!!!!!
#использую язык программирования Python 3.5
a = []
m = 0
for i in range(4):
a.append(int(input())
for i in range(4):
m = m + a[i]
for i in range(4):
a[i] = a[i] * m
print(*a)
Данные записаны в одной строке
координата одномерная А[i]