Массив

[Hworang]

Задание: 1. Вывести на печать индексы и значения положительных элементов четных строк двумерной матрицы.

вот написал программку, подскажите, что не так?

program mass;
var
i,j:integer;
a : array[n,m] of real;
begin
for i:=0 to n do
for j:=0 to m do
if (i div 2)=0 then
begin
if (a[n,m]>0) then
writeln ('a[n,m]=');
end;
end.

[Teor]

a : array[n,m] of real;

Надо задать n,m в разделе констант и записать так n..m.

if (i div 2)=0 then

div-целое число от деления. Тоесть 4 div 2=2. Место div надо использовать mod. Ну и наконец надо как-то ввести масив в программу.
И еще надо вот так writeln (a[n,m]); Или так writeln ('a[n,m]=',a[n,m]);

[pomoshnic]

Много чего, вот пример правильной программы

program mass;
var
i,j:integer;
a : array[0..100,0..100] of real;
begin
for i:=0 to 100 do
for j:=0 to 100 do
if odd(i)=false then
begin
if (a[i,j]>0) then
writeln ('a[n,m]=',a[i,j]);
end;
readln
end.

[Hworang]

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

Много чего, вот пример правильной программы

program mass;
var
i,j:integer;
a : array[0..100,0..100] of real;
begin
for i:=0 to 100 do
for j:=0 to 100 do
if odd(i)=false then
begin
if (a[i,j]>0) then
writeln ('a[n,m]=',a[i,j]);
end;
readln
end.

Извините, я не совсем понял вот эту строку:" if odd(i)=false then " , можете обьяснить?
и непойму как оно выведет мне результат без ввода данных? или через рандом заполнить?

[pomoshnic]

Odd(i) проверяет параметр на нечетность. Значение функции Odd(i) равно true, если i - нечетное число, и false если i - четное.

и непойму как оно выведет мне результат без ввода данных? или через рандом заполнить?

мржно попробовать.

[pomoshnic]

Вот пример с рандомом

program mass;
var
m:byte;
i,j:integer;
a : array[0..100,0..100] of real;
begin
randomize;
for i:=0 to 100 do
for j:=0 to 100 do
a[i,j]:=random(100);
for i:=0 to 100 do
for j:=0 to 100 do
if odd(i)=false then
begin
if (a[i,j]>0) then
begin
writeln ('a[n,m]=',a[i,j]);
inc(m);{увеличение значения переменной m на 1}
if m>=24 then begin readln; m:=0;end;{проверка на количество значений выводимых на монитор}
end;
end;
readln
end.

[Hworang]

Вот чуть подправил программу, но почему то после ввода 10 значений высвечивает в ответе последнее значение
и не показывает индексы значений

  
program mass;
var
i,j:integer;
a : array[0..5,0..5] of real;
begin
for i:=0 to 5 do
for j:=0 to 5 do
begin write('vvedite a[i,j]='); read(a[i,j]);
if odd(i)=false then
begin
if (a[i,j]>0) then
writeln ('a[n,m]=',a[i,j]);
end;
end;
readln
end.

[pomoshnic]

Вот с индексами и выводом всех значений

program mass;
var
i,j:integer;
a : array[0..5,0..5] of real;
begin
for i:=0 to 5 do
for j:=0 to 5 do
begin write('vvedite a[',i,',',j,']='); read(a[i,j]);end;
for i:=0 to 5 do
for j:=0 to 5 do
begin
if odd(i)=false then
begin
if (a[i,j]>0) then
writeln ('a[',i,',',j,']=',a[i,j]);
end;
end;
readln;
readln
end.

[Hworang]

спасибо за помощь