Регистрация
apple122
24.02.2020 15:58
Информатика
Есть ответ 👍

Компьютер, подключенный к интернет, обязательно имеет 1. web-сервер 2. ip-адрес 3. url-адрес 4. электронную почту 5. web-страницу

246
380
Посмотреть ответы 3

Ответы на вопрос:

Виолетта0201
Виолетта0201
4,4(41 оценок)

кроме электронной почты

Ангелок1105
Ангелок1105
4,4(71 оценок)
2. ip-адрес ip-адрес конечно же, вариант 2.
Marcelyn
Marcelyn
4,6(70 оценок)

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

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

 

 

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

 

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. 

 

 

Популярно: Информатика