Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
<span>M=25/5^2-1/(9 – 2^3)+7=25/25 -1/(9-8)+7=1-1+7=7
Ответ:7</span>
Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
Program kol_vo_elementov;
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.