Метеорологічна станція веде спостереження за вологістю повітря.
результатом одного спостереження є ціле число від 0% до 100 %, яке записується
за мінімальної кількості біт. станція зробила 800 спостережень.
визначте інформаційний обсяг результатів спостережень у байтах.

161

463

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

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

Evelinahomytova

Информатика

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

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. выбирать