М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yliana23
yliana23
24.03.2022 09:35 •  Информатика

Вмассиве f(15) найти сумму элементов, стоящих на нечетных местах

👇
Ответ:
Катя388891
Катя388891
24.03.2022
Const
    n = 15;
var
    i, s: integer;
    a: array[1..n] of integer;

begin
    s := 0;
    for i := 1 to n do
    begin
        write('a[', i, ']=');
        readln(a[i]);
        if i mod 2 = 1 then
            s := s + a[i];
    end;
    writeln(s);
end.
4,5(48 оценок)
Открыть все ответы
Ответ:
AlexUnderNewSky
AlexUnderNewSky
24.03.2022

6

Объяснение:

#include <iostream>

using namespace std;

signed main()

{

   int a,b,c;

   cin >> a >> b >> c;

   b--;

   c--;

   int A[a][a];

   for(int i = 0; i < a; i++)

       for(int j = 0; j < a; j++)

           cin >> A[i][j];

   int d[a];

   bool used[a];

   for(int i = 0; i < a; i++)

   {

       d[i] = 1000000001;

       used[i] = false;

   }

   d[b] = 0;

   int cnt = 0;

   while(cnt != a)

   {

       int w,d_min=1000000001;

       for(int i = 0; i < a; i++)

           if(!used[i] && d[i] < d_min)

           {

               d_min = d[i];

               w = i;

           }

       for(int i = 0; i < a; i++)

           if(A[w][i] != -1 && !used[i] && d[w] + A[w][i] < d[i])

               d[i] =  d[w] + A[w][i];

       used[w] = true;

       cnt++;

   }

   if(d[c] == 1000000001)

       d[c] = -1;

   cout << d[c];

}

4,7(79 оценок)
Ответ:

var m:integer;

   t:string;

begin

 readln(m);

 case m of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: begin

     writeln('Где вы желаете провести отпуск?');

     readln(t);

     writeln('Июль вы проведете ',t);

   end;

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 else

   writeln('Введено некорректное число');

 end;

end.

4,8(32 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ