Регистрация Спросить otvet5GPT
bisenov04
16.09.2022 09:24
Информатика
Есть ответ 👍

Напишите программу, которая заполняет массив размерностью 40 следующими данными: элемент №1-№5 - целыми числа, введенные пользователем элемент №6-№10 - случайными целыми числами (из диапазона от 0 до 10) элемент №11-№15 - случайными целыми числами (из диапазона от -10 до 0) элемент №16-№20 - случайными целыми числами (из диапазона от 20 до 50) элемент №21-№25 - случайные целые числа (из диапазона от -50 до -20) элемент №21-№25 - правило заполнения: каждый элемент массива равен сумме двух следующих. элемент №31-№40 - правило заполнения: каждый элемент массива равен квадрату своего индекса. весь массив выводится на экран в одну строку. текст программы прислать в ответ на данное

225
413
Посмотреть ответы 2

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

JIikrona
JIikrona
4,5(19 оценок)
Водном месте, видимо, опечатка (№ 21-25 два раза, а № 26-30 нет). const n=40; var x: array[1..100] of real; i: integer;   begin randomize; for i: =1 to 5 do begin   write('x[',i,']=');   readln(x[i]);   end; for i: =6 to 10 do x[i]: =random(11); for i: =11 to 15 do x[i]: =random(11)-10; for i: =16 to 20 do x[i]: =random(31)+20; for i: =21 to 25 do x[i]: =random(31)-50; for i: =31 to 40 do x[i]: =i*i; for i: =30 downto 26 do x[i]: =x[i+1]+x[i+2]; for i: =1 to n do write(x[i],' '); writeln; end. пример: x[1]=32 x[2]=49 x[3]=81 x[4]=27 x[5]=50 32 49 81 27 50 3 7 7 6 5 -9 -4 -3 -3 0 23 32 40 24 36 -43 -26 -34 -44 -22 12808 7877 4931 2946 1985 961 1024 1089 1156 1225 1296 1369 1444 1521 1600 
LizaVeta281
LizaVeta281
4,6(42 оценок)
  var    a,b,c,g : integer;     // a,b,c - стороны            begin  readln (a,b,c);       // g - находим гипотенузу (наибольшее из чисел)  if a > b then    begin    if a > c then      g : = a    else      g : = c    end  else    if b > c then    g : = b    else    g : = c;       // если треугольник прямоугольный, то  // сумма квадратов катетов равна квадрату гипотенузы        if (sqr (a) + sqr (b) = sqr(g))  or (sqr (a) + sqr (c) = sqr(g)) then    writeln ('yes')    else    writeln ('no');   end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS