Найти сумму индексов отрицательных элементов массива x[1..n]. !
Ответы
Пройдет через 2,9 тысячи населенных пунктов,83 региона. Кроме того, олимпийский огонь побывает на Северном полюсе,на дне озера Байкал и на вершине Эльбруса.После Москвы и подмосковного Красногорска Олимпийский огонь пронесут, по сути, вокруг Московской области с оборотом против часовой стрелки — через Тверь, Смоленск, Калугу, Тулу, Рязань, Владимир, Иваново, Кострому и Ярославль. Затем факел отправится на северо-запад страны, оттуда — в северные регионы и на Дальний Восток, а, возвращаясь, через Поволжье вновь прибудет в ЦФО, охватив Центральное Черноземье и соседние области. Порядок определен: сначала огонь Олимпиады увидят в Тамбове, затем в Липецке, Орле, Брянске, Курске, Белгороде и, наконец, в Воронеже, откуда факел отправится в Волгоград и далее на юг
var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.