Используя генератор случайных чисел , заполнить массив размерностью 10 элементов числами из интервала [-20, 20] и найти среднее арифметическое всех
10-11 класс
|
элементов массива .
var mass:array[1..10] of integer;
var i:integer;
var sum: integer;
var ans: real;
begin
Randomize;
sum:=0;
for i:=1 to 10 do begin
mass[i]:=Random (41) - 20; write(mass[i],' ');
end;
for i:=1 to 10 do
sum+=mass[i];ans:=sum/10;
writeln('Otvet: ', ans);
end.
на паскале надо
спасибо большое
Другие вопросы из категории
Треугольник со сторонами a, b, с являются равносторонним.
б) целое число N является чётным двузначным числом
одном из трех состояний («включено», «выключено» или «мигает»). Какое
наименьшее количество лампочек должно находиться на табло, чтобы с его помощью
можно было передать 18 различных сигналов
он решил залить лист одним цветом. В редакторе есть инструмент "Залить здесь", который позволяет менять цвет области на выбранный кликом по ней. Для инструмента определены 4 цвета (1,2,3,4 на карте), которые активируются кликом на панели цветов. В начальный момент времени выбран инструмент "Залить здесь", для которого активен белый цвет. После каждого использования инструмента Знайка должен менять цвет на ранее НЕиспользовавшийся. Области с общим участком границы, у которых совпали цвета, далее рассматриваются как одна область. За какое минимальное количество кликов Знайка перекрасит карту в один цвет.
Читайте также
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Нужно на языке Паскаль.
Program Zadacha;
Uses crt;
var a:array[1..1000] of integer;
c,i,n,s :integer;
s1: real;
begin;
clrscr;
writeln("Введите размерность массива);
readln(n);
writeln('Введите массив');
for i:=1 to n do
begin a[i]:=random(100);
if a[i]<50 then begin inc(c); s:=s+a[i];end;s:=s+a[i];s1:=s/N;
writeln('Массив A:');
for i:=1 to N do write(a[i]:4);
writeln;
writeln('Среднее арифметическое равно=',s1);
end;
end.