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

Тема: помогите исправить

  1. #1
    dummy proBEERka is on a distinguished road
    Регистрация
    24.11.2009
    Сообщений
    4
    Вес репутации
    0

    По умолчанию помогите исправить

    1.Задан одномерный целочисленный массив из n элементов (n ≤ 20, вводится пользователем с клавиатуры).
    Найти:
    1.Суму элементов массива с четным номером.
    2.Номеры элементов, превышающих среднего арифметического всех элементов массива.
    3.Найменший с нечетным элементов массива.

    program proBEERka;
    uses crt;
    var a:array [1..13] of integer;
    i,s,min:integer;
    sa:real;
    begin
    clrscr;
    randomize;

    for i:=1 to 13 do begin
    a[i]:=random(100)-50;
    writeln(i,' element =',a[i]);
    end;

    s:=0;
    sa:=0;
    for i:=1 to 13 do begin
    if not(odd(i)) then
    s:=s+a[i];
    end;
    writeln('suma=',s:4);

    for i:=1 to 13 do
    if i>sa then
    sa:=(sa+a[i])/i;
    writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo');
    for i:=1 to 13 do
    min:=a[1];
    if ( i mod(2)<>0) and (a[i]<min) then
    min:=a[i];
    writeln ('naymenshuy element',i);
    readkey;
    end.

    Помогите подправить код... заранее спс...

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    developer Newbie is on a distinguished road
    Регистрация
    06.09.2009
    Сообщений
    142
    Вес репутации
    9

    По умолчанию Re: помогите исправить

    Код :
    1. for i:=1 to 13 do
    2. if i>sa then
    3. sa:=(sa+a[i])/i;
    4. writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo');ъ
    5.  
    6. for i:=1 to 13 do
    7. min:=a[1];
    8. if ( i mod(2)<>0) and (a[i]<min) then
    9. min:=a[i];
    10. writeln ('naymenshuy element',i);

    здесь вообще какая-то шляпа.
    1. if i>sa then
    sa:=(sa+a[i])/i;
    + writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo'); уже после цикла
    сам понимаешь что делаешь? фигня какая-то.

    2. опять же, несколько действий в цикле без begin..end (или они были нарошно опущены?)
    for i:=1 to 13 do
    min:=a[1]; - это надо вынести перед циклом ибо будет затиратся всегда min значение, а сам цикл начинать с 3го элемента
    if ( i mod(2)<>0) and (a[i]<min) then
    min:=a[i];

  4. #3
    coder samec2011 is on a distinguished road
    Регистрация
    14.05.2009
    Сообщений
    39
    Вес репутации
    10

    По умолчанию Re: помогите исправить

    Помогу, за оплату.
    Стучите в асю 11один11-5шесть5шесть, обсудим.

  5. #4
    dummy proBEERka is on a distinguished road
    Регистрация
    24.11.2009
    Сообщений
    4
    Вес репутации
    0

    По умолчанию Re: помогите исправить

    1) извини но лаве нету...

    1. if i>sa then
    sa:=(sa+a[i])/i;
    + writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo'); уже после цикла
    сам понимаешь что делаешь? фигня какая-то.
    так если sa я поставлю перед IF то результат не измениться...
    а после цикла что? ведь мне надо вывести номер элемента....

  6. #5
    developer Newbie is on a distinguished road
    Регистрация
    06.09.2009
    Сообщений
    142
    Вес репутации
    9

    По умолчанию Re: помогите исправить

    дак ты чо делаешь этим циклом?
    как я понимаю пункт 2.
    у тя уже есть сумма массива (s) находишь средее арифметическое s := s / 13; дальше идешь циклом
    for i:=1 to 13 do
    if i>s then
    writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo');

    вот и вся задача)

    а то что ты ищешь не есть средее арифметическое

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

Похожие темы

  1. помогите исправить javascript!!!!!!
    короче в контакте наткнулся на лохотрон..........ну типа прибавляет голоса и вся фигня и написан скрипт, ну я попробовал, а оказалось что с помощью...
    от maximus-8 в разделе JScript, VBScript, DHTML...
  2. помогите исправить недочёт
    Составить структурированную программу,которая при наличии у вещественного вектора х1,...,х10 хотя бы одной компоненты<-2 ,все отрицательные...
    от Freeman12 в разделе Решите мне задачку
  3. ПОМОГИТЕ ИСПРАВИТЬ ЗАДАЧКУ
    задан массив A(n) целого типа. и в зависимости от того, есть ли среди элементов массива хотя бы одно число Фибоначчи, вывести сообщение true , false ...
    от kardan в разделе Решите мне задачку
  4. ПОМОГИТЕ ИСПРАВИТЬ ЗАДАЧИ
    1.Вот простейшая, но под знаком логарифма может оказаться отрицательное число:confused: Как можно исправить? program third; const a=0.5; ...
    от повстанец в разделе Delphi и Pascal
  5. помогите исправить ошибку!!!
    у меня код: выбираю записи из таблицы, потом хочу выделить в строках textdata и texttime подстроки, которые разделены / а при выводе на экран...
    от Doggas в разделе Perl, PHP, ASP ...

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения