Массив

[garik]

Массив

Добырый деньне могли бы вы подправить мою программу на паскале аналогично программе с массивами в этой теме:http://www.tehnari.ru/f41/t42793/#post424676
Моя программа:
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 < 0 then p:=p*matrix;
writeln('answer: ',p);
readln;
end.

 

[Vladimir_S]

Добырый деньне могли бы вы подправить мою программу на паскале

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

 

[garik]

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

 

[Vladimir_S]

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

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

program p1;
const
 n=8;
var
 i:integer;
 p:real;
 a:array[0..n] of real;
begin
 p:=1;
 for i:=0 to n do
  begin
   write('a[',i,']= ');
   readln(a[i]);
   if a[i]<0 then p:=p*a[i];
  end;
 writeln('answer: ',p);
 readln;
end.

 

[garik]

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

 

[Vladimir_S]

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

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