Помогите пожалуйста написать программу и блок схему
"Если в последовательности А1,... , А59 положительные и отрицательные элементы строго чередуются (+ - + - или - + - +), то найти средние арифметические значения элементов с четными и нечетными номерами. В противном случае найти число чередований знака среди элементов заданной последовательности. Для отладки программы исходный массив сформировать с помощью генератора случайных чисел."
ЗАРАНЕЕ БЛАГОДАРЮ!!!!)))
ЗАРАНЕЕ БЛАГОДАРЮ!!!!)))
// Программа работает . Если что то не так то подправте )))).
// Можете подправить random(6)-3; чтоб выдавал нужные вам значения
// и еще я делал проверку на 0 (a>=0 и a[i+1]>=0) так, что если неправильно исправте ))
// ну а так вроде все норм // будут вопросы пишите 8930948
program z1;
uses crt;
type mas=array[1..10]of integer; // сделал до 10 для проверки
var a:mas;
k,i,n:integer;
procedure CreatMas(var a:mas; n:integer); // заполнение массива
begin
for i:=1 to n do
a:=random(6)-3;
end;
procedure ShowMas(a:mas; n:integer); //вывод массива
begin
for i:=1 to n do
write(a:4);
writeln();
end;
procedure FindSrAr(a:mas; n:integer); // нахождение Сред арефм
var srArEven,srArOdd:real;
begin
for i:=1 to n do
begin
if(i mod 2 = 0 ) then
begin
srArEven:=srArEven + a;
end
else
srArOdd:=srArOdd + a;
end;
srArEven:=srArEven/n/2;
srArOdd:=srArOdd/n/2;
writeln('Сред арефм чет- ',srArEven);
writeln('Сред арефм нечет- ',srArOdd);
end;
function CountChangeSign(a:mas;n:integer):integer; // количество чередований
var sign:integer;
begin
sign:=0;
for i:=1 to n-1 do
begin
if(((a>=0) and (a[i+1]<0)) or ((a<0) and (a[i+1]>=0))) then
inc(sign);
end;
write('Кол-во чередований- ', sign);
end;
Begin
randomize;
write('Кол-во эл мас -'); read(n);
CreatMas(a,n);
ShowMas(a,n);
k:=0;
for i:=1 to n-1 do
begin
if(((a>=0) and (a[i+1]<0)) or ((a<0) and (a[i+1]>=0))) then // проверка на чередование знака
begin
inc(k);
end;
end;
if(k=n-1)then
begin
FindSrAr(a,n);
end
else
begin
CountChangeSign(a,n);
end;
End.
// Можете подправить random(6)-3; чтоб выдавал нужные вам значения
// и еще я делал проверку на 0 (a>=0 и a[i+1]>=0) так, что если неправильно исправте ))
// ну а так вроде все норм // будут вопросы пишите 8930948
program z1;
uses crt;
type mas=array[1..10]of integer; // сделал до 10 для проверки
var a:mas;
k,i,n:integer;
procedure CreatMas(var a:mas; n:integer); // заполнение массива
begin
for i:=1 to n do
a:=random(6)-3;
end;
procedure ShowMas(a:mas; n:integer); //вывод массива
begin
for i:=1 to n do
write(a:4);
writeln();
end;
procedure FindSrAr(a:mas; n:integer); // нахождение Сред арефм
var srArEven,srArOdd:real;
begin
for i:=1 to n do
begin
if(i mod 2 = 0 ) then
begin
srArEven:=srArEven + a;
end
else
srArOdd:=srArOdd + a;
end;
srArEven:=srArEven/n/2;
srArOdd:=srArOdd/n/2;
writeln('Сред арефм чет- ',srArEven);
writeln('Сред арефм нечет- ',srArOdd);
end;
function CountChangeSign(a:mas;n:integer):integer; // количество чередований
var sign:integer;
begin
sign:=0;
for i:=1 to n-1 do
begin
if(((a>=0) and (a[i+1]<0)) or ((a<0) and (a[i+1]>=0))) then
inc(sign);
end;
write('Кол-во чередований- ', sign);
end;
Begin
randomize;
write('Кол-во эл мас -'); read(n);
CreatMas(a,n);
ShowMas(a,n);
k:=0;
for i:=1 to n-1 do
begin
if(((a>=0) and (a[i+1]<0)) or ((a<0) and (a[i+1]>=0))) then // проверка на чередование знака
begin
inc(k);
end;
end;
if(k=n-1)then
begin
FindSrAr(a,n);
end
else
begin
CountChangeSign(a,n);
end;
End.
Спасибо большое!!! А блок схему можно?)))