Program n1;
const n=10;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(21);
sum:=sum+a[i];
end;
for i:=1 to n do if a[i] > sum/n then k:=k+1;
writeln(k);
end.

0 0

4 года назад

СРОЧНО! реферат набранный на компьютере содержит 16 страниц текста и помимо этого ещё 32 рисунка. На каждой текстовой странице 5

лариса станиславовна

16 = 2^4
64 * 50 * 16 = 51200 символов
6240 * 32 = 199680 байт - информационный объём 32 рисунков
51200 * 4 = 204800 бит - информационный объём текста
204800/8 = 25600 байт
199680 + 25600 = 225280 байт = 220 Кб - информационный объём реферата

0 0

4 года назад

Для Питона. Ввести два натуральных числа a и b и заполнить массив из 10 элементов: первая половина массива заполняется случайным

Белая ночь [101K]

Import random

a=int(input())
b=int(input())
arr=[]
for a in range(0, 5):
   arr.append(random.randint(a, b))
for a in range(0, 5):
   arr.append(arr[a]*arr[a])
for a in arr:
   print(a)

0 0

4 года назад

Помогите с тестом плиииз, срочно надо)) 1.В электронной таблице выделили группу из 4 ячеек. Это могут быть ячейки: a) А1:В2 b) А

-ink- [309]

1-a
2-а
3-b
4-d
5-c
6-b
7-b
8-b
9-a
10-d
11-d
12-c
13-d
14-a
15-a
16-a
17-b
18-d
19-d
20-a
21-b

0 0

4 года назад