alenka070
Опубликовано 7 лет назад по предмету Информатика от alenka070


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

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

    Var

     x : array [1..15] of integer;

     i : integer;

     min : integer;

     Kol_nol : integer;

    begin

     Kol_nol := 0;

     for i:=1 to 15 do

     begin

     Write ("Введите элемент массива:");

    Readln(x[i]);

    end;

    min := x[1];

    for i := 0 to 15 do

    begin

     if (x[i] > 0) then

     begin

      if (x[i] < min) then

      begin

       min := x[i];

      end;

     end;

     if (x[i] = 0) then

     begin

      Inc(kol_nol);

     end;

     

    Writeln(min);

    Writeln(kol_nol);

    end;

  2. Ответ
    Ответ дан ivanpakalnishkis

    var

     x:array[1..15]of integer;

     i,min,z:integer;

    begin

     min:=32000;

     z:=0;

     for i:=1 to 15 do

     begin

      readln(x[i]);

      if x[i]>0 then if x[i]<min then min:=x[i];

      if x[i]=0 then inc(z);

     end;

     writeln(min);

     writeln(z);

    end.

     

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 11 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 11 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 11 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 11 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 11 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников