garik

Добырый деньне могли бы вы подправить мою программу на паскале аналогично программе с массивами в этой теме:Двумерные массивы и циклическая алгоритмическая конструкция
Моя программа:
program p1;
uses crt;
const
n=8;
m=7;
var
i,p:integer;
matrix:array[0..n,0..m] of integer;
begin
p:=1;
for i:=0 to n do
if matrix[i] < 0 then p:=p*matrix[i];
writeln('answer: ',p);
readln;
end.

Vladimir_S

Вы забыли самую малость - сформулировать задачу.

garik

Дан массив вещественных чисел. Найти произведение отрицательных элементов.

Vladimir_S

1. Если в задании говорится о массиве (одномерном!) вещественных чисел, то почему же Вы определяете двумерный массив целых чисел? Потому что так в образце? Нет, не пойдет. Тупое бездумное копирование - не метод освоения программирования, это уж Вы мне поверьте.
2. Сам массив с неба не свалится: его необходимо ввести.
3. Искомое произведение тоже должно быть вещественным.
4. Если Вы в программе не используете функции модуля CRT (например, очистку экрана, ввод символа клавиши, паузу и т.п.), так незачем его и цеплять.
С учетом вышесказанного, имеем:

garik

а не мог ли ты еще подправить мой псевдокодпреподаватель сказал,что в моем есть ошибки. Эта же задача
1.Ввод n
2.P:=1
3. Для i=1,n,1 выполнить ввод a[i]
4. a[i].<0
5.p:=p* ai.
6.Вывод p
7.Конец

Vladimir_S

Сожалею, но во всяких там псевдокодах, равно как и в блок-схемах - ни бельмеса не понимаю. Я, увы, самоучка, и осваивал (~106 лет назад) программирование как-то без этих прибамбасов, и обхожусь без них и поныне.