Вопрос по информатике:
ПАСКАЛЬ АВС .МАССИВЫ.
сформировать целочисленный массив из 15 элементов произвольных чисел .вывести отдельно элементы исходного массива ,превышающие его среднее арифметическое .
- 13.01.2018 17:18
- Информатика
- remove_red_eye 10694
- thumb_up 36
Ответы и объяснения 1
Uses crt;
var a:array [1..15] of integer;
x,sum:integer;
sr:real;
begin
randomize;
sum:=0;
for x:=1 to 15 do
begin
a[x]:=random(15)+1;
sum:=sum+a[x];
writeln('a[',x,']:',a[x]);
end;
sr:=sum/15;
writeln;
for x:=1 to 15 do
if a[x]>sr then write(a[x]:3);
end.
- 14.01.2018 19:48
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.