Вопрос по информатике:
Решите с помощью Паскаля,пожалуйста
Сформировать массив случайным образом(длина массива 20).Найти в нем среднее арифметическое.Сформировать новый массив из элементов первого больших среднего арифметического.
- 03.02.2018 02:21
- Информатика
- remove_red_eye 19407
- thumb_up 21
Ответы и объяснения 2
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
var b:=a.Where(t->t>a.Average).ToArray; b.Println
end.
Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31
- 04.02.2018 03:05
- thumb_up 12
Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
if a[i]>b/n then begin
z[x]:=a[i];
x:=x+1;
end;
for i:=1 to x do
writeln(i,' ',z[i]);
readln;
end.
- 05.02.2018 13:27
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.