Информатика, опубликовано 18.04.2019 04:20
Паскаль 30 напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет среднее арифметическое всех элементов этого массива, которые меньше 50, и среднее
арифметическое всех остальных элементов. входные данные входная строка содержит три числа: границы диапазона случайных чисел a и b , а также размер массива n . все числа разделены пробелами. гарантируется, что 0 < n ≤ 10000 .
выходные данные в первой строке программа должна вывести n элементов построенного массива, разделив их пробелами, а во второй строке – среднее арифметическое всех элементов этого массива, которые меньше 50, и затем через
пробел среднее арифметическое всех остальных элементов. при выводе последних двух чисел нужно сохранить три знака в дробной части. если в какой-то из двух групп не оказалось ни одного элемента, нужно вывести вместо среднего
арифметического число 0. примеры входные данные 0 100 10 выходные данные 0 3 86 20 27 67 32 16 37 42 22.125 76.500 входные данные -10 40 6 выходные данные -10 -9 33 0 3 24 6.833 0.000
Ответ оставил: Гость
var m: array[1..100000] of integer;
a,b,sum,sum2,n,k,i: integer;
begin
sum: =0;
k: =0;
sum2: =0;
readln(a,b,n);
randomize;
for i: =1 to n do begin m[i]: =random(a,b); if(m[i]< 50) then begin sum: =sum+m[i]; k: =k+1; end;
if(m[i]> =50) then sum2: =sum2+m[i]; end;
for i: =1 to n do write(m[i],' ');
writeln;
writeln((sum/k): 5: 3,' ',(sum2/(n-k): 5: 3));
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01