Составить программу которая формирует массив из 15 случайных целых чисел из отрезка от -10 до 10. На экран вывести исходный массив и найденный результат.а) Найти среднее арифметическое всех элементов массива.б) Вычеслить средне...
Составить программу которая формирует массив из 15 случайных целых чисел из отрезка от -10 до 10. На экран вывести исходный массив и найденный результат.
а) Найти среднее арифметическое всех элементов массива.
б) Вычеслить среднее арифметическое положительных (отрицательных) элементов массива.
Гость
Ответ(ы) на вопрос:
Гостьvar
a: array [1..15] of integer;
avg, avgpol, avgotr: real;
i, k1, k2: byte;
begin
avg := 0; avgpol := 0; avgotr := 0;
writeln('Massiv:');
Randomize;
for i:=1 to 15 do
begin
a[i]:=random(20)-10;
write(a[i], ' ');
avg:=avg + a[i];
if a[i] > 0 then
begin
avgpol := avgpol + a[i];
inc(k1);
end;
if a[i] < 0 then
begin
avgotr := avgotr + a[i];
inc(k2);
end;
end;
avg:=avg/15;
avgpol:= avgpol/k1;
avgotr:= avgotr/k2;
writeln;
writeln('Srednee massiva = ', avg:3:2);
writeln('Srednee polozh. elementov = ', avgpol:3:2);
writeln('Srednee otric. elementov = ', avgotr:3:2);
readln;
end.
Не нашли ответ?
Похожие вопросы