Помогите пожалуйста: оформить программку нахождения места наибольшего значения. 2-ая

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

Задать свой вопрос
Амелия Таботина
Можно на питоне?
1 ответ
program jnrvjf;
var
A: 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 gt; 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.




Валера Никитин-Поликарпов
Но вообщем если на питоне принести прогу в школу, может учительница зауважает;)
Илюха Нефедычбс
она точно не поверит , что это я сама сделала
Виктория
Я не могу в комменты прогу отправить
Лариса
Она слишком большая выходит
Вячеслав Ниверт
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:= 0 to d do A[i] := random (20); writeln(A); for i:= 0 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))// Это если вести человеческую нумерацию, где 1-ый элемент имеет номер 1. end;end.
Толик Панишев
Блин, тут еще и разметка вся сбилась, ну что за печаль
Виолетта Страмцова
вы сможете поменять задание вроде, которое выше на питоне писали
Женек Хайтунцев
И то правильно
Zlata
Спасибо еще раз
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт