• Помогите срочно, плиз
    Дан массив из 10 элементов найдите количество элементов больших 3, но меньших 10

Ответы 1

  • Uses crt;Var a:array [1..100] of integer;i,k:integer;beginfor i:=1 to 10 dobegina[i]:=random(50);write (a[i]:4);k:=0;end;writeln;for i:=1 to 10 doif (a[i]<10) and (a[i]>3) thenbegink:=k+1;end;writeln ('колво элементов',k);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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