program nnn;
var
a:array[1..30] of integer;
kol,sum,i: integer;
st: real;
begin
writeln('Вводите температуру за 30 дней ноября');
for i:=1 to 30 do
begin
readln(a[i]);
if a[i]<0
then begin
sum:= sum + a[i];
kol:= kol + 1;
end;
end;
st:= sum / kol;
writeln('Средняя температура заморозков за ноябрь: ',st:0:1);
end.
function MyPower(x: real; n: integer): real;
var
i: integer;
begin
result := 1;
if n < 0 then
result := 1 / MyPower(x, -n)
else
for i := 1 to n do
result := result * x;
end;
var
x, y, p: real;
begin
Write('x, y: ');
Read(x, y);
p := (2 * MyPower(x, 5) + 4 * MyPower(x, 30) + 8 * y)
/ (2 * y + MyPower(y, 15) - 25 * x);
Write('p = ', p);
end.
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
1 Мбайт = 1024 Кбайт
0.3 Мбайт = 0.3*1024 Кбайт = 307.2 Кбайт
При а=3 результат а=30
при а=7, результат а=27