G
Guest
Задача: Для массива X из 50 элементов, имеющего положительные и отрицательные элементы, вычислить среднее арифметическое положительных элементов массива и заменить им максимальный элемент массива.
Проблема: Не определяет правильно максимальный элемент массива :KillMe:
Код:
program z_2;
uses crt;
const n=50;
var X: array[1..n] of real;
i, kol, max: byte;
cp_ap, s: real;
BEGIN
clrscr;
randomize;
for i:=1 to n do
X[i]:= 10-random(20);
for i:=1 to n do
writeln(X[i]:1:2);
for i:=1 to n do
begin
if X[i]>0 then
begin
s:=s + X[i];
kol:=kol+1;
end;
end;
cp_ap:=s/kol;
max:=1;
for i:=1 to n-1 do
begin
if X[i+1] > X[i] then
max:=i+1
end;
X[max]:=cp_ap;
for i:=1 to n do
writeln(X[i]:1:2);
readkey;
END.
Проблема: Не определяет правильно максимальный элемент массива :KillMe: