• ПОЖАЛУЙСТА , ОБЪЯСНИТЕ КАК РАБОТАЕТ ЭТА ПРОГРАММА НА ПАСКАЛЬ

    const N=30;
    var A: array [1..N] of integer ;
    i, x, y:integer;
    s: real ;
    begin
    for i:=1 to N do readln (A [i]);
    x:=0;y:=0;
    for i:=1 to N do
    if a[i]>20 then begin
    inc(x);
    y:=y+a[i];
    end;
    s:=y/x;
    writeln(s);end.

Ответы 1

  • 1. Создается массив из целых, массив статический на 30 элементов.2. В цикле со счетчиком (for) заполняется массив с клавиатуры, вводятся 30 значений.3. Еще раз в цикле просматриваются все элементы массива и сравниваются с 20. Если больше 20, то увеличивается значение переменной x на  1 и к значению перменной y прибавляют значение этого элемента массива.4. После окончания цикла вычисляется выводится отношение s:=x/y.Небольшое дополнение, если элементов массива больших 20 не будет, то возникнет переполнение из-за деления на 0
    • Автор:

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

Войти через Google

или

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

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

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