В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
1321321325555555
1321321325555555
19.11.2021 11:50 •  Информатика

Нужна программа на c++. Вводятся координаты трех точек на плоскости. Необходимо вывести длины сторон образованного треугольника в порядке убывания. Кроме того, если треугольник тупоугольный, то требуется вывести его площадь. ​

Показать ответ
Ответ:
Mariya197819
Mariya197819
11.09.2021 12:01

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

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

 

 

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

 

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. 

 

 

0,0(0 оценок)
Ответ:
benblast
benblast
30.01.2023 14:49

Прочитать статью о писателе и подобра

В какой семъе родился Чехов?

Какие невзгоды выпали на долю Чехова в детстве?

Почему семья переехала в Москву?

Чем занимался Чехов, оставшись один в Таганроге?

Как началась лтературная деятельность Чехова?

Какую профессию выбрал себе Чехов?+ вопрос 1 на стр. 165

Когда Чехов начал печататься?

Когда стал известен?

В каких жанрах писал автор?

Почему рассказы Чехова всегда да кратки?

В чём проявлось новаторство Чехова?Прочитать статью о писателе и подобра

В какой семъе родился Чехов?

Какие невзгоды выпали на долю Чехова в детстве?

Почему семья переехала в Москву?

Чем занимался Чехов, оставшись один в Таганроге?

Как началась лтературная деятельность Чехова?

Какую профессию выбрал себе Чехов?+ вопрос 1 на стр. 165

Когда Чехов начал печататься?

Когда стал известен?

В каких жанрах писал автор?

Почему рассказы Чехова всегда да кратки?

В чём проявлось новаторство Чехова?

Каково лексическое значение слова обыденный?

Каково лексическое значение слова обыденный?

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота