uses
Crt;
const
MaxN = 100;
var
N, i: Integer;
a: array[1..MaxN] of Real;
Sum, Avg: Real;
begin
ClrScr;
repeat
Write('Введите N:');
ReadLn(N);
until N in [1..MaxN];
Sum := 0;
for i := 1 to N do begin
Write('Ввведите a[', i, ']:');
ReadLn(a);
Sum := Sum + a;
end;
Avg := Sum / N;
for i := 1 to N do begin
if a < 0 then
a := a + 0.5
else if a < Avg then
a := 0.1;
WriteLn('a[',i,']=',a:10:5);
end;
ReadKey;
end.
Люди помогите пожалуйста по паскалю!!!
Тут такая проблема, нужно такая вот программа на паскале: Пусть дано натуральное число n и вещественные числа a1,...,an. в последовательности a1,...an все отрицательные члены увеличте но 0,5, а все неотрицательные, меньшие среднего арифметического, замените на 0,1. Вот текст такой программы мне срочно нужен, помогите, кто может, заранее спасибо
[QUOTE=curls]Тут такая проблема, нужно такая вот программа на паскале: Пусть дано натуральное число n и вещественные числа a1,...,an. в последовательности a1,...an все отрицательные члены увеличте но 0,5, а все неотрицательные, меньшие среднего арифметического, замените на 0,1. Вот текст такой программы мне срочно нужен, помогите, кто может, заранее спасибо[/QUOTE]
Я уже пиcАл ответ на этот вопрос, но в связи с перетрубациями на сайте все куда-то похерилось.
Что ж - дубль два:
Я уже пиcАл ответ на этот вопрос, но в связи с перетрубациями на сайте все куда-то похерилось.
Что ж - дубль два:
Код: