Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Varp,v,t,x:integer;
begin
write('Введите число ');
readln(x);
p:=x div 100;
v:=(x div 10) mod 10;
t:=(x mod 100) mod 10;
if (p < v) and (p<t) then
writeln('Минимальное цифра = ',p);
if (v < p) and (v<t) then
writeln('Минимальное цифра = ',v);
if (t < p) and (t<v) then
writeln('Минимальное цифра = ',t);
end.
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.
Так вроде уже решал подобную задачу.
Задание 1
5*10³+3*10²+4*10¹+1*10⁰
Задание 2
2*8¹+5*8⁰+3*8⁻¹+4*8⁻²+1*8⁻³
Задание 3
2*6⁻¹+5*6⁻²+3*6⁻³+4*6⁻⁴+1*6⁻⁵
Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7