• Вопрос по информатике:

    Дан целочисленный массив из 30 элементов. Найти количество элементов, равных максимальному. PASCAL

    • Автор:

      santiago39
  • program raf105;

    var

     a:array[1..30] of integer;

     max,i,c:integer;

    begin

    max:= -10000;

    writeln('Заполните массив');

    for i:=1 to 30 do

    begin

     readln(a[i]);

     if a[i] > max

       then max:= a[i];

    end;

    for i:=1 to 30 do

     if a[i] = max

       then c+= 1;

    writeln('Количество элементов равных максимальному: ',c);

    end.

    PascalABC 3.4.2
    • Отвечал:

      kaitlynnuyrb

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска