Ребята, очень прошу помочь. Только не всё в одной проге, а сразу несколько. Составьте хоть две программы, очень нужно(А.  составьте программу которая заполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисля...

Ребята, очень прошу помочь. Только не всё в одной проге, а сразу несколько. Составьте хоть две программы, очень нужно( А.  составьте программу которая заполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с четными значениями Б.  составьте программу которая заполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисляет произведение элементов массива с нечётными значениями В.  составьте программу которая заполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива Г.  составьте программу которая заполняет массив a[1..10] случайными числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива с четными значениями. 
Гость
Ответ(ы) на вопрос:
Гость
1) var a: array [1..10] of integer;     i, m: integer; begin      for i := 1 to 10 do      begin           a[i] := random(20);           writeln('[', i, '] => ', a[i]);           if (a[i] mod 2 = 0) then m := m + a[i];      end;      writeln(m); end. 2) var a: array [1..10] of integer;     i, m: integer; begin      m := 1;      for i := 1 to 10 do      begin           a[i] := random(20);           writeln('[', i, '] => ', a[i]);           if (a[i] mod 2 = 1) then m := m * a[i];      end;      writeln(m); end. 3) var a: array [1..10] of integer;     i, m: integer; begin      m := 1;      for i := 1 to 10 do      begin           a[i] := random(20);           writeln('[', i, '] => ', a[i]);           m := m + a[i];      end;      writeln(m / 10); end. 4) var a: array [1..10] of integer;     i, m, c: integer; begin      m := 1;      for i := 1 to 10 do      begin           a[i] := random(20);           writeln('[', i, '] => ', a[i]);           if (a[i] mod 2 = 0) then           begin                m := m + a[i];                c := c + 1;           end;      end;      if (c > 0) then writeln(m / c); end. Прошу Вас =)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы