Массивы написать программу в pascalabc.net : даны x1, x10 и y1, y10. сравнить их суммы и если сумма х будет больше суммы y, то все y обнулить, иначе обнулить все х.

217

357

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

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

nadyasvetlakov

Информатика

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

1. традиционное решение const n=10; var x,y: array[1..n] of integer; sx,sy,i: integer; begin randomize; write('x: '); sx: =0; for i: =1 to n do begin x[i]: =random(101)-50; write(x[i],' '); sx: =sx+x[i] end; writeln; write('y: '); sy: =0; for i: =1 to n do begin y[i]: =random(101)-50; write(y[i],' '); sy: =sy+y[i] end; writeln; writeln('сумма х= ',sx,', сумма y= ',sy); if sx> sy then for i: =1 to n do y[i]: =0 else for i: =1 to n do x[i]: =0; write('x: '); for i: =1 to n do write(x[i],' '); writeln; write('y: '); for i: =1 to n do write(y[i],' '); writeln end. пример x: 4 29 -50 -18 37 -43 -18 9 41 28 y: -8 41 -18 -6 -10 -10 47 -8 -29 25 сумма х= 19, сумма y= 24 x: 0 0 0 0 0 0 0 0 0 0 y: -8 41 -18 -6 -10 -10 47 -8 -29 25 2. аналогичное решение средствами pascalabc.net 3.2 const n=10; begin var x: =arrrandom(n,-50,50); write('x: '); x.println; var y: =arrrandom(n,-50,50); write('y: '); y.println; var sx: =x.sum; var sy: =y.sum; writeln('сумма х= ',sx,', сумма y= ',sy); if sx> sy then y: =arrfill(n,0) else x: =arrfill(n,0); write('x: '); x.println; write('y: '); y.println end. выбирать

ДашаааDidek

Информатика

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

vari,sumx, sumy: integer; x: array [1..10] of integer; y: array [1..10] of integer; beginsumx: =0; sumy: =0; //çàïîëíèì ìàññèâ xfor i: =1 to 10 dobegin read (x[i]); sumx: =sumx+x[i] end; //çàïîëíèì ìàññèâ yfor i: =1 to 10 dobeginread (y[i]); sumy: =sumy+y[i] end; writeln ('sumx=',sumx,'sumy=',sumy); if sumx> sumy then for i: =1 to 10 do y[i]: =0; if sumx< sumy then for i: =1 to 10 do x[i]: =0;

for i: =1 to 10 dowriteln ('x[',i,']=',x[i],'y[',i,']=',y[i]); end.

stikmanov

Информатика

4,4(91 оценок)

1кб = 1024 байт следовательно 45*1024 = 46080 байт ответ: 46080 байт

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

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

Задай свой вопрос

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

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

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

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

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

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

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