Var
a: array [1..10] of integer;
pr, i, kol, sum: integer;begin
sum := 0;
pr := 1;
for i := 1 to 10 do
    a[i] := -50 + random(100);
for i := 1 to 10 do
begin
    if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then   // 1
      sum := sum + a[i];
    if (i mod 2 = 0)   then                         // 2
      pr := pr * a[i]
    else if (i mod 2 = 0) and (a[i] = 0) then
      pr := 0;
end;
for i := 1 to 10 do
    if (a[i] mod 10 = 0) then
      a[i] := 0;
for i := 2 to 9 do                                // 3
begin
    if a[i] = 0 then
      if (a[i + 1] <> 0) and ((i + 1) mod 2 = 0) and (a[i - 1] <> 0) and ((i - 1) mod 2 = 0) then
        kol := kol + 1;
end;
writeln('сумму нечетных элементов =', ' ', sum);
writeln('произведение элементов =', ' ', pr);
writeln('число пар соседних элементов =', ' ', kol);
end.

0 0

4 года назад

Какое количество информации несёт сообщение:"Встреча назначена на сентябрь"

Rikki Tikki Tqvvvi

Каждый символ несет в себе 1 байт информации, поэтому нужно просто посчитать количество символов. Важно: пробел - это тоже символ, также как и точка, запятая, дефис и т.д.. В данном сообщении 26 букв и 3 пробела, значит 29 символов, т.е. 29 байт.

0 0

4 года назад

В маркированном списке для обозначения элемента списка используются: А)латинские буквы;б)русские буквы;3)римские цифры;4)графиче

rerererererere

Ответ б) русские буквы

0 0

4 года назад