Вопрос по информатике:
Срочно!!!
Помогите, что не так, почему не работает данная программа?program massiv;
const n=20;
var B: array [-20..n] of integer;
i,p,a,d,k,h:integer;
begin
{Ввод массива}
write('Введите интервал');
Readln(a,d);
Randomize;
For k:=1 to n do begin;
B[k]:=a+random (d-a+1);
write ('B[', k,']=', B[k]);
{вывод массива}
end;
For k:=1 to n do
Write (B[k]);
{произведение элементов}
p:=1;
For k:=1 to n do begin;
P:=p* B[k];
write ('произведение элементов');
end;
for i:=1 to n do read(B[k]);
readln;
h:=0;
for i:=1 to n do if B[k]<0 then inc(h);
write('количество отрицательных элементов',h);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.08.2016 23:29
- Информатика
- remove_red_eye 12644
- thumb_up 5
Ответы и объяснения 1
1 (просто для справки) желательно Randomize в начале ставить
2 for k:=-10 to n т к иначе первые 10 ячеек просто не нужны
3 for i:=-10 to n
и вроде все и да пиши какие ошибки вылетают(так легче и быстрее найти проблему)
- 28.08.2016 04:29
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.