• Помогите пожалуйста:
    оформить программу нахождения места максимального значения. Вторая программа ввести с клавиатуры число х и выписать номера ячеек массива, где находится такое же значение массива.

Ответы 6

  • writeln('Максимальное значение в множестве: ', b); for i:=0 to d do begin b:=A[i]; if b = x then writeln ('Номера элементов, совпадающих с x: ', (i+1))// Это если вести человеческую нумерацию, где первый элемент имеет номер 1. end;end.
    • Автор:

      hans2voa
    • 6 лет назад
    • 0
  • Блин, тут еще и разметка вся сбилась, ну что за печаль
    • Автор:

      wesley
    • 6 лет назад
    • 0
  • вы можете изменить задание вроде, которое выше на питоне писали
  • И то верно
  • Спасибо еще раз
  • program jnrvjf;varA: array[0..20] of integer;x, b, i, d, c: integer;begin    writeln('Введите число элементов в массиве');    readln(d);    writeln('Введите число');;    readln(x);    b:=0;    for i:= 1 to d do        A[i] := random (20);    writeln(A);    for i:= 1 to d do    begin        c:= A[i];        if (c > b) then            b:=A[i]    end;    writeln('Максимальное значение в множестве: ', b);    for i:=0 to d do     begin        b:=A[i];        if b = x then            writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.    end;end.
    • Автор:

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

Войти через Google

или

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

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

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