Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
Ответ:
Объяснение:
var
x, y:real;
begin
//x:=5;
readln(x);
if (x < -1) then y:=x+2;
if ((x >= -1) and (x <= 2)) then y:=x*x;
if (x > 2) then y:=6-x;
writeln(y);
end.
Телескоп нужен для … приближения удалённых предметов.
Микроскоп нужен для … увеличения предметов, невидимых простым глазом.
Линейка нужна для … измерения отрезков.
Компас нужен для … определения сторон горизонта.
Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
Var a,b,c: integer;
begin
writeln('Введите числа');
readln(a,b,c);
if a<0 then writeln(a,' отрицательное');
if b<0 then writeln(b,' отрицательное');
if c<0 then writeln(c,' отрицательное');
end.