• дан массив состояший из 10 целых чисел.найти максимальный элемент массива и заменить его на ноль

Ответы 1

  • //Pascalvar   A: array [1..10] of byte;  i, MAX: byte;beginrandomize;MAX := 0;writeln('***Исходный массив***');for i := 1 to 10 dobegin  A[i] := random(51)+1;  if A[i] > MAX then MAX := A[i];  write(A[i]:4);end;writeln;writeln('***Измененный массив***');for i := 1 to 10 dobegin  if A[i] = MAX then A[i] := 0;  write(A[i]:4);end;writeln;//readln;end.
    answer img
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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