+ Ответить в теме
Показано с 1 по 6 из 6

Тема: МАССИВЫ (ОДНОМЕРНЫЕ)

  1. #1
    Новичок М@ri кто это?
    Регистрация
    22.12.2011
    Сообщений
    4
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию МАССИВЫ (ОДНОМЕРНЫЕ)

    "В ПК поступают сведения о названии и количестве пожаров в N регионах страны. Выведите на печать наименование регионов, в которых количество пожаров превышает ежегодное среднестатистическое значение."
    За сonst можно взять количество регионов (например,10) и среднестатистическое значение(например, 25,5). Помогите кто чем может первокурснице, никак не могу её победить...

  2. #2
    Юзер a7161 кто это?
    Регистрация
    16.11.2011
    Сообщений
    195
    Поблагодарил(а)
    57
    Получено благодарностей: 18 (сообщений: 15).

    По умолчанию

    Так?
    Код:
    uses crt;
    const
         N = 10;
         avg = 25.5;
         region:array[1..N] of String = ('reg1', 'reg2', 'reg3', 'reg4', 'reg5',
                                        'reg6', 'reg7', 'reg8', 'reg9', 'reg10');
    
    var
       count:array[1..N] of Integer;
       i:Integer;
    
    begin
         clrscr; randomize;
         writeln('srednee znachenie: ', avg:2:1);
         writeln('==========================');
         for i:= 1 to N do begin
             count[i]:= Random(50);
         end;
         for i:= 1 to N do begin
             write('region: ', region[i], ', kolichestvo: ', count[i]);
             writeln;
         end;
         writeln;
         writeln('po usloviu: ');
         for i:= 1 to N do begin
             if (count[i] > avg) then
                writeln(region[i]);
         end;
         readln;
    end.

  3. #3
    Новичок М@ri кто это?
    Регистрация
    22.12.2011
    Сообщений
    4
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Чуть-чуть нет, надо чтобы названия регионов самим вводить и количество пожаров в каждом, а потом сравнивая со среднестатистическим вывести на экран наименования тех, у которых больше этого числа.
    Только никак я нем могу всё это в прогу собрать

  4. #4
    Новичок М@ri кто это?
    Регистрация
    22.12.2011
    Сообщений
    4
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    Вот что выдает сразу после запуска(
    Миниатюры Миниатюры Документ Microsoft Office Publisher.jpg‎  

  5. #5
    Юзер a7161 кто это?
    Регистрация
    16.11.2011
    Сообщений
    195
    Поблагодарил(а)
    57
    Получено благодарностей: 18 (сообщений: 15).

    По умолчанию

    Ну я так сделал как раз чтобы не вводить вручную. Долго слишком. Но если надо, то можно так:
    Код:
    uses crt;
    const
         N = 10;
         avg = 25.5;
    var
       region:array[1..N] of String;
       count:array[1..N] of Integer;
       i:Integer;
    
    begin
         clrscr; randomize;
         for i:= 1 to N do begin
             write('vvedi region ',i,': ');
             readln(region[i]);
             write('kolichestvo pozharov: ');
             readln(count[i]);
             writeln;
         end;
         writeln;
         writeln('srednee znachenie: ', avg:2:1);
         writeln('==========================');
         for i:= 1 to N do begin
             write('region: ', region[i], ', kolichestvo: ', count[i]);
             writeln;
         end;
         writeln;
         writeln('po usloviu: ');
         for i:= 1 to N do begin
             if (count[i] > avg) then
                writeln(region[i]);
         end;
         readln;
    end.
    Цитата Сообщение от М@ri Посмотреть сообщение
    Вот что выдает сразу после запуска(
    Так все же правильно, выводятся те, которые больше 25.5.
    Кстати, что за компилятор?

  6. #6
    Новичок М@ri кто это?
    Регистрация
    22.12.2011
    Сообщений
    4
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    паскаль ABC. Вот то что нужно!Спасибо

+ Ответить в теме

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. Ответов: 6
    Последнее сообщение: 05.03.2010, 16:05
  2. Raid массивы
    от HaRdMaN в разделе Вопросы и ответы
    Ответов: 1
    Последнее сообщение: 18.12.2007, 13:16

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.