• НЕТ ИНДЕКСНОГО СВОЙСТВА ПО УМОЛЧАНИЮ ДЛЯ ТИПА INTEGER
    var c:integer;
    a:array[1..10] of integer;
    b:array[1..10] of integer;
    i,k:byte;
    begin
    readln(c);
    write('a[',i,']=');
    for i:=1 to 10 do
    begin
    a[i]:=random(21)-10;
    write(a[i],' ');
    end;
    begin
    writeln('a[',i,']=',a[i]);
    Readln (a[i]);
    Write('b[',i,']=',b[i]);
    Readln (b[i]);
    Writeln('c[',i,']=',c[i]);
    Readln (c[i]);
    for i:=1 to 10 do
    end;
    begin
    if (c[i]>a) and (c[i] end;
    For i:=1 to n do
    write('Кол-во элементов в диапазоне [',a,',',b,']: ',k);
    end.

Ответы 1

  • varc: array[1..10] of integer;a,b,i,k:byte;beginfor i:=1 to 10 do beginc[i]:=random(21)-10;write(c[i],' ');end;writeln;Writeln('a, b:');Readln (a,b);k:=0;for i:=1 to 10 do  if (c[i]>=a) and (c[i]<=b) then k:=k+1;writeln('Кол-во элементов в диапазоне [',a,',',b,']: ',k);end.Пример:-3 6 2 -8 -6 5 6 2 5 -9a, b:0 5Кол-во элементов в диапазоне [0,5]: 4
    • Автор:

      blake49
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years