Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
 for i:=1 to n do
 read(rost[i]);
 for i:=1 to n do
 if (rost[i] >=180) then Inc(k);
writeln(k);
end.

Пример входных данных
3
179 180 194

Выходные данные
2

0 0

3 года назад

Написать программу, которая получает случайное целое типа int, выводит его двоичное представление на экран, выполняет преобразов

Света675 [1]

Void dvoich(int x1) {
srand (time(NULL));
int i, b;
long c = 0;
x1 = rand();
for(i=0;x1 > 0;i++) {
b = x1 % 2;
x1 = (x1-b)/2;
c += b * pow(10,i); }
printf("\nDvoichnoe chislo: %d",c); }
reverse(c.begin(), c.end());
printf("\nDvoichnoe obratnoe chislo: %d",c);

0 0

4 года назад

imax:=1for i:=2 to 10 doif a [i]>a [imax] then imax:=i;write ('Наибольший элемнт a[', imax, ' ]=', a[imax])самостоятельно зап

Diammond [64]

Как я поняла, нужно было использовать кусок кода, данный выше?

var
a: array[1..10] of integer;
imax, i: byte;
begin
Writeln('Массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(100);
write(a[i]:4);
end;
imax := 1;
for i:=2 to 10 do
if a[i] > a[imax] then imax := i;
writeln;
writeln('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2);
end.

0 0

4 года назад

Скорость передачи данных по каналу ADSL равна 128000 бит .передача файла по этому каналу заняла 120 секунд .каков объём этого фа

Артем16101 [20]

$V = \frac{120 * 2^{7} * 1000}{ 2^{13} } = \frac{125 * 15 * 2^{6} }{ 2^{6} } = 
1875$

0 0

4 года назад