ПАСКАЛЬ 30 баллов Напишите программку, которая наполняет массив из N частей
ПАСКАЛЬ 30 баллов
Напишите программку, которая заполняет массив из N элементов случайными целыми числами в спектре [ A , B ] и определяет среднее арифметическое всех элементов этого массива, которые меньше 50, и среднее арифметическое всех других частей.
Входные данные
Входная строчка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разбиты пробелами. Гарантируется, что 0 lt; N 10000 .
Выходные данные
В первой строке программка обязана вывести N частей построенного массива, разделив их пробелами, а во второй строке среднее арифметическое всех частей этого массива, которые меньше 50, и потом через пробел среднее арифметическое всех других элементов. При выводе заключительных 2-ух чисел необходимо сохранить три знака в дробной части. Если в какой-то из 2-ух групп не оказалось ни 1-го элемента, необходимо вывести заместо среднего арифметического число 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]lt;50) then begin sum:=sum+m[i]; k:=k+1; end;
if(m[i]gt;=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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.