Задать вопрос
10 августа, 02:56

заполнить массив с клавиатуры и найти (за один проход) количество элементов имеющих максимальное значение

+1
Ответы (1)
  1. 10 августа, 06:26
    0
    Pascal:

    const n = 10;

    var a:array [1 ... n] of integer;

    i, max, c:integer;

    begin

    clrscr;

    readln (a[1]) ;

    max:=a[1];

    c:=1;

    for i:=2 to n do

    begin

    readln (a[i]) ;

    if a[i]>max then

    begin

    max:=a[i];

    c:=1;

    end

    else if a[i]=max then inc (c) ;

    end;

    writeln ('Kol-vo: ', c) ;

    end.

    C++:

    #include

    using namespace std;

    int main ()

    {

    int a[10];

    int c = 0, max;

    cin >>a[0];

    max = a[0];

    for (int i = 1; i<10; i++)

    {

    cin >>a[i];

    if (a[i]>max)

    {

    max = a[i];

    c = 1;

    }

    else if (a[i]==max)

    ++c;

    }

    cout <<"KOL_VO: " <
    return 0;

    }
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «заполнить массив с клавиатуры и найти (за один проход) количество элементов имеющих максимальное значение ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы