Сколько времени потребуется, чтобы передать информацию объёмом 182325 Байт, при эффективной скорости передачи информации 4675 BPS?э
183
452
Ответы на вопрос:
Uses crt; var b: array [1..10] of real; min,max,x: integer; sum,pr,t: real; begin sum: =0; pr: =1; for x: =1 to 10 do begin write('b[',x,']: '); readln(b[x]); end; min: =1; max: =1; for x: =1 to 10 do begin if b[x]< b[min] then min: =x; if b[x]> b[max] then max: =x; end; t: =b[min]; b[min]: =b[max]; b[max]: =t; if max> =min then for x: =min+1 to max-1 do sum: =sum+b[x] else for x: =max+1 to min-1 do sum: =sum+b[x]; for x: =1 to 10 do if b[x]< 0 then pr: =pr*b[x]; for x: =1 to 10 do write(b[x],' '); writeln; writeln(sum); writeln(pr); end.
Популярно: Информатика
-
iljakrainik08.05.2021 23:20
-
illusionion02.09.2022 08:12
-
Виталий000302.01.2022 02:32
-
Кисаааа12326.10.2022 20:10
-
konobeevvlad12.07.2022 14:50
-
JAHGH14.10.2022 23:58
-
VarDim12613.02.2021 03:45
-
sushenkop08wf413.03.2022 00:26
-
AlinaAlina11062409.04.2020 18:08
-
lerafilippovа0427.02.2020 17:12