Регистрация Спросить otvet5GPT
vikaolkhovskay
26.11.2022 20:36
Информатика
Есть ответ 👍

1) найди последний элемент массива меньше заданного числа 2) найди наибольший элемент одномерного массива 3) найти произведение элементов массива целых чисел от 1 до n, которые кратны 9 4) найти сумму чисел, имеющие нечетные номера 5) найти сумму наименьшего и наибольшего элементов массива и это все в !

217
251
Посмотреть ответы 2

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

din46
din46
4,4(57 оценок)
1)program mas; uses crt; const nmax=100; var x: array[1..nmax]of integer; i,n,b,bcol,proz: integer; begin proz: =1; repeat begin clrscr; write('введите размер одномерного массива(n),n='); read(n); end; until n< =nmax; writeln('введите значения элементов массива: '); for i: =1 to n do read(x[i]); writeln('введенный массив: '); for i: =1 to n do write(x[i],' '); writeln; write('введите число b: '); read(b); for i: =1 to n do if x[i]< b then inc(bcol); writeln('количество элементов меньших b: ',bcol); for i: =1 to n do proz: =proz*x[i]; writeln('произведение всех элементов массива: ',proz); readln; end.2)program p1; var     x: array[1..100] of integer;     max,i,n: integer; begin write('введите количество элементов='); readln(n); writeln('исходный массив'); randomize; for i: =1 to n do   begin   x[i]: =random(101)-50;   write(x[i]: 3);   if (x[i]> =max) then max: =x[i];   end; writeln; writeln('новый массив'); for i: =1 to n do   begin   if (abs(x[i])=max) and (x[i]< > max) then x[i]: =1;   if (x[i]< > max) and (abs(x[i])< > max) then x[i]: =0;   write(x[i]: 3);   end; readln end.3)var   a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i : = 1 to 15 do a[i] : = random(40) + 10;   writeln('исходный массив: ');   for i : = 1 to 15 do write(a[i], ' ');   writeln;   av : = 1;   for i : = 1 to 15 do     if a[i] mod 7 = 0 then av : = av * a[i];   if av = 1 then writeln('массив не содержит элементов , которые кратны 7! ')   else writeln('произведение равно: ', av); end.4)uses crt; const n=31; var a: array[1..n] of integer;     i: byte;     max: integer;     sr: real; begin clrscr; writeln('vvedite temperaturu po dnyam: '); sr: =0; for i: =1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr: =sr+a[i]/31;   end; clrscr; writeln('massiv temperatur: '); max: =a[1]; for i: =1 to n do   begin     write(a[i],' ');     if a[i]> max then max: =a[i];   end; writeln; writeln('samye teplye dni s temperaturoj ',max,' grad'); for i: =1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('srednya temperatura=',sr: 0: 1,' grad'); readln end.5)program prog5_2; const   n = 10;   var   a     : array [1..n] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {заполнение массива а случайными числами}     randomize;     for i: =1 to n do       a[i]: =random(100);     {вывод массива а на экран}   writeln('исходный массив: ');   for i: =1 to n do     write(a[i]: 6);   writeln;     {нахождение индексов наибольшего и наименьшего эемаентов массива}   imin: =1;   {индекс наименьшего элемента}   imax: =1;   {индекс наибольшего элемента}   for i: =2 to n do   begin     if a[i] < a[imin] then       imin : =i;       if a[i] > a[imax] then       imax : = i;   end;     {вывод ответа}   writeln('наименьший элемент a[',imin,']=',a[imin]);   writeln('наибольший элемент a[',imax,']=',a[imax]);     {подсчет количества и суммы чисел между минимальным и максимальным значениями}   c: =0;       {количество}   s: =0;       {сумма}   for i : =imin to imax do
natachernov
natachernov
4,4(12 оценок)
Начало встать сделать зарядку умыться поесть почистить зубы одеться идти в школу

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS