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

Восстановите взаимность компонентов компьютера Напишите , Запишите пропуски​

👇
Ответ:
Вандализм
Вандализм
30.01.2023

Где задача

Объяснение:

===

4,6(95 оценок)
Открыть все ответы
Ответ:
Nastyalimelps13
Nastyalimelps13
30.01.2023

Всё таки есть сомнение нужна сумма нечётных элементов массива или сумма элементов массива с нечётными индексами?

В данной прграмме подсчитывается сумма  нечётных элементов массива

 

 

Если же нужно второе то строку отмеченную {*} следует заменить на

 

if (i mod 2)>0 then s:=s+a[i];   

 

  

Program massiv;

Uses Crt;

var a:array[1..10] of integer;

       i,sum,ch:integer;

 begin

     clrscr;      

     write('Введите число:' );

     readln(ch);

     write('Введите элементы массива:');

     sum:=0; 

 

     for i:=1 to 10 do

           begin 

               readln(a[i]);

               if (a[i] mod 2)>0 then s:=s+a[i];        {*}

 

           end;

     writeln; write('Исходный массив: ');

for i:=1 to 10 do

      begin  

            write(a[i]);

            write('  ' ); 

    end;  

  writeln; writeln;  

  write('Сумма нечётных элементов массива: ',sum)

 

  writeln; writeln;   

  write('Номера элементов которые больше числа ',ch,' : ' );

for i:=1 to 10 do

      if (a[i]>ch) then  

 

             begin  

                 write(i:2); 

                 write('  ' ); 

           end;

 

  writeln; writeln;

  write('Положительные числа которые кратны числу ',ch,' : ' );  

 

 

for i:=1 to 10 do

      if (a[i]>0) and (a[i] mod ch=0)  then  

             begin  

                 write(a[i]); 

                 write('  ' ); 

           end;

     readkey;  

 

end. 

 

 

4,6(98 оценок)
Ответ:
Игорь3773
Игорь3773
30.01.2023
5.                                                      

program raf105;

var i,n:integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n do

 writeln('7');

end.

6.                                                      

program raf105;

var  

 i: integer;

 pro: real;

begin

pro:= 1;

for i:=1 to 20 do

pro*= i;

writeln('Произведение первых 20 чисел: ',pro);

end.

7.                                                      

program raf105;

var i,sum: integer;

begin

for i:=1 to 15 do

sum+= i;

writeln('Сумма первых 15 чисел: ',sum);

end.

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