• помогите пожалуйста, 9 класс!!!
    N-целых чисел. Найдите разницу между min и min.
    составьте программу!!!

Ответы 1

  • Const   N = 13;Var   A:array[1..N] of integer;   i,Min,Max:integer;BeginWrite('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=Random(21)-10;    Write(A[i],' ')    End;WriteLn;Min:=A[N];Max:=A[N];For i:= 1 to N-1 do    Begin    if A[i]>Max then Max:=A[i];    if A[i]<Min then Min:=A[i]    End;WriteLn('Max = ',Max);WriteLn('Min = ',Min);WriteLn('Max - Min = ',Max-Min);End.Пример:Исходный массив: -1 5 -8 -2 3 -2 -3 10 -10 -8 -4 5 -3 Max = 10Min = -10Max - Min = 20
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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