Регистрация Спросить otvet5GPT
bulycheva0303
18.04.2023 05:41
Информатика
Есть ответ 👍

Нужно написать программу на языке паскаль по условию: найти сумму элементов массива расположенных до последнего положительного элемента буду бескрайне , если мне))

281
334
Посмотреть ответы 2

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

Angela280
Angela280
4,4(60 оценок)
Uses crt; var a,b: array[1..100] of integer; i,j,k,n: integer; procedure rmassr; begin       for i: =1 to n do begin             a[i]: =random(10);       end; end; procedure rmassy; begin       for i: =1 to n do begin             readln(a[i]);       end; end; procedure rmass(); begin       for i: =1 to n do begin             write(a[i],' ');       end; end; procedure newmass; begin       for i: =1 to n do begin             if a[i] > 0 then b[i]: =a[i];       end;       for i: =1 to n do begin             j: =j+b[i];       end;       writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива  '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then       rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.
shornikauvladi
shornikauvladi
4,7(12 оценок)
Var chislo, x, i, s: integer; begin writeln('введите число: '); readln(chislo); x : = chislo; s : = 0; if ( chislo < 100 ) or ( chislo > 999 ) then writeln('неверное число! ') else begin while ( x < > 0 ) do  begin s : = s + (x mod 10); x : = x div 10; end; if s mod 2 = 0 then write('да') else write('нет'); end; end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS