Есть ответ 👍

Дан массив из 10 целых чисел найти произведение элементов массива с четными индексами

235
247
Посмотреть ответы 2

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


Var a: array[1..10] of integer; sum,i: integer; begin for i: =1 to 10 do begin readln(a[i]); if i mod 2 = 0 then sum: =sum+a[i]; end; writeln(sum); end. надеюсь на "лучший ответ"
tawawma
4,4(88 оценок)

Type   point = record       x: integer;       y: integer;   end;   line = record       p: point;       q: point;       len: double;   end; procedure linelength(var pl: line);   // вычисляет и сохраняет значение длины отрезка begin   pl.len : = sqrt(sqr(pl.q.x - pl.p.x) + sqr(pl.q.y - pl.p.y)) end; var   a, b, c, d: point;   ab, ac, ad, bc, bd, cd: line; begin   writeln('введите попарно координаты четырех точек');   readln(a.x, a.y, b.x, b.y, c.x, c.y, d.x, d.y);   with ab do   begin       p.x : = a.x; p.y : = a.y; q.x : = b.x; q.y : = b.y; linelength(ab);   end;   with ac do   begin       p.x : = a.x; p.y : = a.y; q.x : = c.x; q.y : = c.y; linelength(ac);   end;   with ad do   begin       p.x : = a.x; p.y : = a.y; q.x : = d.x; q.y : = d.y; linelength(ad);   end;   with bc do   begin       p.x : = b.x; p.y : = b.y; q.x : = c.x; q.y : = c.y; linelength(bc);   end;   with bd do   begin       p.x : = b.x; p.y : = b.y; q.x : = d.x; q.y : = d.y; linelength(bd);   end;   with cd do   begin       p.x : = c.x; p.y : = c.y; q.x : = d.x; q.y : = d.y; linelength(cd);   end;   writeln(ab.len, ' ', ac.len, ' ', ad.len, ' ', bc.len, ' ', bd.len, ' ', cd.len);   if ab.len = cd.len then begin       // ab и cd - претенденты       if ac.len = bd.len then // нашли abdc           writeln('параллелограмм abdc')       else       if ad.len = bc.len then // нашли abcd           writeln('параллелограмм abcd')   end   else   if ac.len = bd.len then begin           // ac и bd - претенденты       if ad.len = bc.len then // нашли acbd           writeln('параллелограмм acbd')           else       if ab.len = cd.len then // нашли abcd           writeln('параллелограмм acdb')   end       else   if ad.len = bc.len then begin               // ad и вс - претенденты       if ac.len = bd.len then // нашли adbc           writeln('параллелограмм adbc')               else       if ab.len = cd.len then // нашли adcb           writeln('параллелограмм adcb')   end   else       writeln('параллелограмм построить невозможно'); end. контрольный прогон: введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 параллелограмм построить невозможно введите попарно координаты четырех точек 5 1 10 4 8 9 3 6 5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453 параллелограмм abcd введите попарно координаты четырех точек 5 1 8 9 10 4 3 6 8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052 параллелограмм acbd

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS