Вопрос по информатике:
Задан числовой массив, состоящий из 11 элементов. Увеличьте все элементы данного массив, значения которых больше среднего арифметической всех элементов массива на 40 и выведите все элементы на экран. Паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.11.2017 00:55
- Информатика
- remove_red_eye 18993
- thumb_up 33
Ответы и объяснения 2
Вот решение задачи:
uses Crt;
const n=11;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum, Sred: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
A[i]:= 100+random(1000)/27;
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Old Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sred = ', Sred:6:2);
WriteLn;
WriteLn ('New Massiv: ');
for i:=1 to n do
begin
if A[i]>Sred then A[i]:=A[i]+40;
Write (A[i]:6:2,' ');
end;
WriteLn;
ReadLn;
end.
- 16.11.2017 02:21
- thumb_up 48
Я немного оптимизировал, если ты не против.
uses crt;
const n=11;
Var a:array [1..n] of real;
i: integer;
sum,sred:real;
Begin sum:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do sum
sred:=sum/n;
for i:=1 to n do
begin
if a[i]>sred then a[i]:=a[i]+40;
write (a[i]:3:2,' ');
end;
End.
- 17.11.2017 22:15
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.