• ProgramSumma;usescrt;

    constn=5;

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

    m,i,s: integer; Автоматическое заполнение

    случайными числами от1 до20

    procedure Input; Procedure Input;

    begin begin

    for i:=1 to n do p:=1; q:=20; randomize;

    begin for i:=1 to n do a[i]:=random(q-p+1)+p;

    write('a[',i,']='); readln(a[i]); end;

    end

    end;

    procedure Print;

    begin

    write('Массив целых чисел А: ');

    for i:=1 to n do write(' ',a[i])

    writeln; writeln; { пропуск строки }

    end;

    procedure Sum( m: integer);

    begin

    s:=0;

    for i:=1 to m do s:=s+a[i];

    end;

    Begin

    ClrScr;

    Input;{ заполнение массива из 5 элементов }

    ClrScr;

    Print; { печать заполненного массива }

    write('Сколько элементов суммировать: '); readln(m);

    Sum(m); writeln;{ суммирование m элементов массива }

    writeln('Сумма ',m,' элементов массива равна: ', s);

    { суммирование всех элементов массива }

    Sum(n); writeln;

    writeln('Сумма всех ',n,' элементов массива равна: ', s);

    Write ('Среднее арифметическое всех элементов равно ', s/n);

    Readkey;

    End.
    З А Д А Н И Я:
    1. Набрать и исполнить программу.
    2. Увеличить число элементов массива.
    3. Найти сумму 8 элементов массива.
    4. Осуществить ввод количества элементов массива с клавиатуры.

Ответы 1

  • {правильная программа, кол-во элементов вводится с клавиатуры}Program Summa;uses crt;type a1= array of integer;var a: a1;m,s,n: integer;procedure Input;const p=1;const q=20; var i: integer;beginrandomize;begin for i:=0 to n-1 do a[i]:=random(q-p+1)+p;write('a[',i,']='); readln(a[i]); end;end;procedure Print;var i: integer;beginwrite('Массив целых чисел А: ');for i:=0 to n-1 do write(' ',a[i]);writeln; writeln;end;procedure Sum( m: integer);var i: integer;begins:=0;for i:=0 to m-1 do s:=s+a[i];end;BeginClrScr;write('введите кол-во элементов в массиве: ');readln(n);SetLength(a, n);Input;ClrScr;Print;write('Сколько элементов суммировать: ');readln(m);Sum(m); writeln;writeln('Сумма ',m,' элементов масссива равна: ', s);Sum(n); writeln;writeln('Сумма всех ',n,' элементов массива равна: ', s);Writeln ('Среднее арифмитическое всех элементов равно ', s/n);Readkey;end.
    • Автор:

      jaycee
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years