Составить программу формирования массива из 15 элементов, в которой используется признак р

[anksunamun]

здравствуйте) сегодня задание такое:

составить программу формирования массива из 15 элементов, в которой используется признак р, в зависимости от которого реализовывался бы один из способов задания массива: при р<0 с помощью генератора случайных чисел, при р=0 с помощью формулы А[i]=2*i-7, при р>0 с клавиатуры. сделать вывод сформированного массива на экран. в полученном массиве все элементы, значения которых равны 0, заменить на их индекс; все отрицательные элементы заменить на модуль этих чисел; значения положительных элементов увеличит в 5 раз. вывести полученый массив. найти сумму элементов массива, стоящих на нечётных местах.

у меня вот такая вот запара:

PROGRAM massiv_1;
{Ksenija Saprikina 06.11.2009 domashnee zadanie}
var
p,i,n,b,s:integer;
A:array[1..15] of integer;
BEGIN
writeln('Vvedite priznak p');
readln(p);

if p<0 then
begin
   for i:=1 to 15 do
   A[i]:=random(10);
   end
   else;


begin
if (p=0) then

begin
   for i:=1 to 15 do 
   A[i]:=2*i-7;
            
   end
else;

begin                                                                            
if p<0 then
for i:=1 to 15 do
begin
writeln('Vvedite luboe celoe chislo');
readln(n);

A[i]:=n;
end;
end;

end;

writeln('Massiv A: ');
begin
for i:=1 to 15 do
writeln(A[i]);
end;

begin
for i:=1 to 15 do
   if A[i]=0 then 
   A[i]:=i
   else 
   if A[i]<0 then
   A[i]:=abs(A[i])
   else
   A[i]:=A[i]*5;
   end;
 
 
   



writeln('Izmenennij massiv A: ',A[i]);

s:=0;
i:=15;
begin
for b:=1 to i do
   if ((i mod b>0) or (i mod b<0)) then
   s:=s+i
   else;
end;
writeln('Summa nechetnih elementov = ',s);
END.

у меня программа запускается, но потом пишет "ошибка выполнения". я пыталась исправить, но никак не соображу, что надо сделать. уже мозги кипят, к тому же массивы не очень хорошо знаю))) помогите, пожалуйста))

[ИринаForeve]

Сравни со своей программой, лень выделять изменения:
*****************

uses crt;
var p,i,s:integer;
 A:array[1..15] of integer;
BEGIN
 clrscr;
 write('Vvedite priznak p =');
 readln(p);
 if p<0 then
  for i:=1 to 15 do A[i]:=random(10);
 if p=0 then for i:=1 to 15 do A[i]:=2*i-7;
 if p>0 then
  for i:=1 to 15 do begin
 write('Vvedite chislo massiva a[',i,']=');
 readln(A[i]);
 end;
writeln('Massiv A: ');
 for i:=1 to 15 do write(A[i]:4);
writeln;
 for i:=1 to 15 do
begin
 if A[i]=0 then A[i]:=i
 else if A[i]<0 then A[i]:=abs(A[i])
 else if a[i]>0 then A[i]:=A[i]*5;
end;
writeln('zmeneni massiv:');
for i:=1 to 15 do write(A[i]:4);
writeln;
s:=0;
for i:=1 to 15 do
if (i mod 2)<>0 then s:=s+A[i];
write('Summa nechetnih elementov = ',s);
readkey;
END.

*******************
Проверила со всеми р вроде идет. Правильно?

[Stilet]

Девочки, а можно вас попросить код по кнопке # выделять?

[ИринаForeve]

Хорошо буду выделять, извините Виталий не знала об этом)))

[anksunamun]

спасибо большое за программу)) поняла про код))
у меня примитивный вопрос, но какой есть:
что значит "uses crt", "clrscr" и "readkey"?

[ИринаForeve]

uses crt - слово uses используется для подключения модулей, в данном случае crt - модуль,
clrscr - функция модуля - очистка экрана,
readkey - функция чтения нажатой клавиши, т.е. пока клавиша (любая) не нажата отображается результат программы
Может описание не точное, но смысл такой

[anksunamun]

спасибо большое!

[ИринаForeve]

Да не за что))), главное что б на пользу.
А программу ты же сама написала, посто с недочетами, у всех бывает)))