Помогите пожалуйста с паскалем!_______________________Случайным образом задан массив из 10
Помогите пожалуйста с паскалем!
_______________________
Случайным образом задан массив из 10 частей. Посчитать среднее арифметическое его частей. Сформировать второй массив из частей первого, больших, чем среднее арифметическое частей первого массива.
1 ответ
Sanek Mokrushnikov
Const
N = 10;
Var
A,B:array[1..N] of integer;
i,k:integer;
Sr:real;
Begin
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
Sr:=Sr+A[i]
End;
Sr:=Sr/N;
WriteLn;
WriteLn('Среднее арифметическое: ',Sr);
k:=0;
Write('Новый массив:');
For i:= 1 to N do
if A[i]gt;Sr then
Begin
k:=k+1;
B[k]:=A[i];
Write(' ',B[k])
End;
End.
N = 10;
Var
A,B:array[1..N] of integer;
i,k:integer;
Sr:real;
Begin
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
Sr:=Sr+A[i]
End;
Sr:=Sr/N;
WriteLn;
WriteLn('Среднее арифметическое: ',Sr);
k:=0;
Write('Новый массив:');
For i:= 1 to N do
if A[i]gt;Sr then
Begin
k:=k+1;
B[k]:=A[i];
Write(' ',B[k])
End;
End.
Рысцова
Надежда
а можно сделать без константы? мы еще такового не проходили
Элина Бреховских
Вообще, это обязаны проходить на 1-2 занятии... Можно - убрать 1-ые две строки, и всюду заместо N написать 10
Регина Бурнейка
спасибо большое!!!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов