Регистрация
KraRom
15.10.2020 05:03
Информатика
Есть ответ 👍

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

222
437
Посмотреть ответы 3

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

auviktory
auviktory
4,6(6 оценок)

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;

Акинаййй
Акинаййй
4,8(98 оценок)

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;

Carolina1Cerry
Carolina1Cerry
4,4(96 оценок)
Uses crt; var i,s,p,a,n: integer; begin    p: =1;     write('введите кол-во чисел  ');   readln(n);   for i: =1 to n do begin                              write('введите ',i,'число: ');                               readln(a);                                 if a< 0 then s: =s+a                              else p: =p*a                            end;   writeln('сумма отрицательных чисел равна: ',s);   writeln('произведение всех положительных чисел равно: ',p)end.как-то так)

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