Даю 15 баллов, помогите написать программу на Pascal. Условие: Дан массивиз

Даю 15 баллов, помогите написать программку на Pascal. Условие: Дан массивиз 15 частей. 1)Найти сумму чисел элементов являющихся нечётными числами с чётным индексом 2)Отыскать сумму элементов индексы которых нечётными... Это две задачки. Заранее Великое СПАСИБО!!!

Задать свой вопрос
2 ответа

Ответ:

var M:array[0..15]of integer;

     k, i, sum ,inp : integer;

begin

  for  k := 0 to 15 do begin

      writeln('Введите ', k , ' элемент массива:');

      readln(M[k]);

  end;

   

  for i := 0 to 15 do begin

        if (i mod 2 = 0) then  

        begin

            if (M[i] mod  2 = 0) then

            begin

                 sum := sum + M[i];

            end;

        end;

  end;

   

writeln('Вывод : ' , sum - M[0]);

readln;

end.

Изъяснение: Ответ к первой доли.В общем: в этой программе 0 не считается чётным числом, поэтому 0-вой индекс, даже если его число чётное - не считается . Если вы с этим не согласны то вам всего только необходимо из этой строчки: writeln('Вывод : ' , sum - M[0]); сделать writeln('Вывод : ' , sum);

2-ая задачка :

var M:array[0..15]of integer;

     k, i, sum ,inp : integer;

begin

  for  k := 0 to 15 do begin

      writeln('Введите ', k , ' элемент массива:');

      readln(M[k]);    

  end;

   

  for i := 0 to 15 do begin

        if (i mod 2 lt;gt; 0) then  

            sum := sum + M[i];

  end;

   

writeln('Вывод : ' , sum);

readln;

end.

Ответ:

Изъясненье:

вот обе задачки, во втором я так понял, необходимо просто нечетные индексы?

Сережа Бубарыкин
пренебрегал в конце вывести, перед последним end'ом должно быть write(sum)
Васька Давагсурэн
В какой задачке?
Илья Анинуд
в обоих
Эмилия Тиханкина
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт