profile
Размещено 6 лет назад по предмету Информатика от Bron2000

экзаменационные оценки учащихся классов вводятся в программу с помощью Data.
Определите и выведите на экран.
1)Сколько учеников получили "5"
2)Есть ли в классе "2"
3)Средний балл

  1. Ответ на вопрос
    Ответ на вопрос дан uyuczukukuke
    program ff;

    var
    x,i,x1:integer;
    flag:boolean;
    ***
    begin
    ***
    x:=0;
    x1:=0;
    flag:=false;
    for i:=0 to Data.Length do
    begin
     if Data[i] = 5 then x:=x+1;
     if Data[i] = 2 then flag:=true;
     x1 := x1+Data[i];
    end;
    writeln(x+' учеников получили 5');
    if flag=true then writeln('В классе есть 2');
    else writeln('В классе нет 2');
    x1:=x1/Data.Length;
    writeln('Средний бал: ',x1);
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Мало ли с чем вы там не работали...
    2. Ответ на вопрос
      Ответ на вопрос дан Bron2000
      А как заполнить этот массив Data.Точнее что написать?
    3. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Это пусть вам автор ответа рассказывает.
    4. Ответ на вопрос
      Ответ на вопрос дан Bron2000
      Печалька
    5. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Ну а почему я должен в его программе ковыряться? Тем более, в допотопном стиле написанной.
  2. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    // PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
    // Внимание! Если программа не работает, обновите версию!

    begin
      var Data:=Arr(4,3,5,2,5,4,3,5,5,3,4,4,4,3,5,2,4,3,5,3);
      Write('Оценки: '); Data.Println;
      Writeln('Количество пятерок: ',Data.Where(t->t=5).Count);
      if Data.Any(t->t=2) then Writeln('Двойки есть')
      else Writeln('Двоек нет');
      Writeln('Средний балл равен ',Data.Average:0:1)
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Само-собой, список оценок может быть любой длины и содержания.
    2. Ответ на вопрос
      Ответ на вопрос дан Bron2000
      Благодарю
    3. Ответ на вопрос
      Ответ на вопрос дан Bron2000
      Задача глупая.Даже не известно сколько учеников.
    4. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Нормальная задача. Программа ДОЛЖНА работать с любым разумным количеством учеников.
    5. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      А иначе это не программа, а так...
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

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