pascal массив

[Трофимов Александр]

Я извиняюсь если обидел..
Честно - не хотел.
Массив безразмерный действительно в паскале можно задать только динамически, либо использовать не массивы.
Размеры статических массивов увы задаются в начале программы: это очень неудобно, но выхода, кроме резервирования изначально максимального значения индексов массива я не вижу. Но и тогда размер массива фиксирован, меняться может переменная, указывающая нам расположение в нем данных.
посчитать число отрицательных элементов матрицы в отмеченных строках
Тут согласен тоже полностью... но думаю Вы согласитесь, что трактовать данное выражение можно по разному и требует уточнения у препода.
Насчёт inc, тут у нас разный опыт, поэтому мне казалось что я прав, так как у меня обычно оператор + знают все и препод спрашивает про inc а не наоборот.

[Sazary]

Трофимов Александр Ну что вы ) Никаких обид.
Все замечания в своем контексте вполне справедливы.

но думаю Вы согласитесь, что трактовать данное выражение можно по разному и требует уточнения у препода

Да, действительно, не самая удачная формулировка в задании.

[Fornarina]

так как ее можно написать в конечном результате????

[Sazary]

Ну так, видимо:

program massiv;
uses crt;

var i, j, m, n, s : integer;
matr : array[1..30, 1..30] of real;
a : array[1..30] of real;

begin
clrscr;
write('Vvedite m: ');
readln(m);
s:=0;
for i:=1 to m do
 begin
 write('a[',i,']= ');
 readln(a[i]);
 end;

for i:=1 to m do
 for j:=1 to m do
  begin
  write('matr[',i,',',j,']= ');
  readln(matr[i,j]);
  end;

for i:=1 to m do
 begin
 if a[i]>0 then
 for j:=1 to m do
  if matr[i,j]<0 then
   inc(s);
  end;
writeln('s=',s);
readln;
end.

[Fornarina]

спасибо вам большое)))))

[Fornarina]

Сообщение от Sazary

Ну так, видимо:

program massiv;
uses crt;

var i, j, m, n, s : integer;
matr : array[1..30, 1..30] of real;
a : array[1..30] of real;

begin
clrscr;
write('Vvedite m: ');
readln(m);
s:=0;
for i:=1 to m do
 begin
 write('a[',i,']= ');
 readln(a[i]);
 end;

for i:=1 to m do
 for j:=1 to m do
  begin
  write('matr[',i,',',j,']= ');
  readln(matr[i,j]);
  end;

for i:=1 to m do
 begin
 if a[i]>0 then
 for j:=1 to m do
  if matr[i,j]<0 then
   inc(s);
  end;
writeln('s=',s);
readln;
end.

я запуталась в блок схеме, подскажите как ее нарисовать , исходя из это задачи, заранее спасибо

[Sazary]

Fornarina
С блок-схемой помочь не смогу )
Здесь на форуме где-то лежит прога для их построения - fceditor
Поищите через поиск.
ps Сам в ней не работал.