9класс

Страница 72-86 §2.2 номер 8, ГДЗ по информатике за 9 класс к учебнику Босовой

Одномерные массивы целых чисел. Страница 72-86 §2.2 номер 8

страницы 72-86 §2.2 номер 8 учебнику по информатике 9 класс Босова
  • program z_8;

    const

      n = 10;

    var

      i, max, k: integer;

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

    begin

      k := 0;

      randomize;

      for i := 1 to n do

        a[i] := random(50);

      max := a[1];

      for i := 2 to n do

        if max < a[i] then max := a[i];

      for i := 1 to n do

        if a[i] = max then k := k + 1;

      writeln('Количество элементов, имеющих максимальное значение>>', k)

    end.

Сообщить об ошибке
Закрыть