• Составить программу в Паскале, выясняющую количество элементов в заданном массиве, отличающихся от минимального на 5.
    Очень прошу, помогите, срочно!

Ответы 1

  • program p26; type lol=array[1..100] of integer;var min,i,n,k:integer;t:lol;beginwrite('количество элементов?');readln(n);write('элементы');for i:=1 to n doreadln(t[i]);min:=9999;for i:=1 to n doif(min>t[i]) then min:=t[i];for i:=1 to n doif(t[i]>min+5) or (t[i]<min-5) then k:=k+1;write('количество элементов отличающихся от минимального на 5=',k);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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