profile
Опубликовано 6 лет назад по предмету Информатика от Valerochek

Найти максимальный элемент и его номер. В Pascal. Тема массивы ;)

  1. Ответ
    Ответ дан DjVreditel

    const
    n = 10;
    var
    i:integer;
    mas : array[1..n] of integer;
    max_num, max_index: integer;
    begin
    writeln('введите элементы массива');
    for i:=1 to n do readln(mas[i]);

    for i := 2 to n do
    if mas[i] > max_num then begin
    max_index := i;
    max_num := mas[i];
    end;
    writeln('Максимальное число ',max_num,' находится на позиции ',max_index);
    end.

     

     

     

     

    Объяснение - 

    константы:

    n- это сколько чисел будет в твоём массиве

    max_num - максимальное число 

    max_index - позиция числа

     

    Функции :

    for i:=1 to n do readln(mas[i]); - вводим числа в массив

     

     

    for i := 2 to n do
    if mas[i] > max_num then begin
    max_index := i;
    max_num := mas[i];
    end;

     

    ищем максимальное число и его позицию

Самые новые вопросы