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

Решить по информатике точнее написать программу!

124
380
Посмотреть ответы 3

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

kdgsteam
kdgsteam
4,8(87 оценок)

program olimp4(input);   uses crt;   var x,y: array [1..100] of integer;   a,n,m,i,j,k,max,sum,msum: integer;   begin  clrscr;   assign(input,'input.txt'); reset(input);   randomize;   { данных из файла}  readln(n);   for i: =1 to n do read(x[i]);   readln;   readln(m);   for j: =1 to m do read(y[j]);   for k: =1 to 10000 do begin  sum: =0; i: =1; j: =1;   {пока сумма не отрицательна и кучки не закончились}  while (sum> =0) and (i< =n) and (j< =m) do  begin  {случайное число 0,1}  a: =random(2);   {если 0, то выбор из первой кучки, если 1, - то из второй}  if (a=0) then begin  {подсчет суммы}  sum: =sum+x[i];   i: =i+1;   end  else begin  {подсчет суммы}  sum: =sum+y[j];   j: =j+1;   end;   {максимальная сумма}  if sum> msum then msum: =sum;   end;   {закончилась вторая кучка, продолжаем брать из первой}  if i< =n then begin  while i< =n do begin  {подсчет суммы}  sum: =sum+x[i];   {если сумма отрицательна, то выход из цикла}  if sum< 0 then i: =n+2;   {максимальная сумма}  if sum> msum then msum: =sum;   inc(i);   end;

mirimyan79
mirimyan79
4,7(95 оценок)

program olimp4(input); uses crt; var x,y: array [1..100] of integer; a,n,m,i,j,k,max,sum,msum: integer; begin clrscr; assign(input,'input.txt'); reset(input); randomize; { данных из файла} readln(n); for i: =1 to n do read(x[i]); readln; readln(m); for j: =1 to m do read(y[j]); for k: =1 to 10000 do begin sum: =0; i: =1; j: =1; {пока сумма не отрицательна и кучки не закончились} while (sum> =0) and (i< =n) and (j< =m) do begin {случайное число 0,1} a: =random(2); {если 0, то выбор из первой кучки, если 1, - то из второй} if (a=0) then begin {подсчет суммы} sum: =sum+x[i]; i: =i+1; end else begin {подсчет суммы} sum: =sum+y[j]; j: =j+1; end; {максимальная сумма} if sum> msum then msum: =sum; end; {закончилась вторая кучка, продолжаем брать из первой} if i< =n then begin while i< =n do begin {подсчет суммы} sum: =sum+x[i]; {если сумма отрицательна, то выход из цикла} if sum< 0 then i: =n+2; {максимальная сумма} if sum> msum then msum: =sum; inc(i); end;

senyaavdeev07
senyaavdeev07
4,6(75 оценок)
Буквы и знаки препинания по считай и будет такте счастье

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS