Массивы. Паскаль

[dashook]

Массивы. Паскаль

помогите пожалуйста уважаемые УМНЫЕ людички бедной,непонимающей информатику,девушке)
очень надо решить и чем быстрее тем лучше!!!

ИТАК:

1. дан массив x(N,M). среди нечетных строк массива определить количество элементов,равных первому элементу массива.

2. дан массив x(N,M). для каждой строки исходного массива найти 1 положительный элемент. из полученных значений сформировать одномерный массив.

 

[AlexZir]

1. дан массив x(N,M). среди нечетных строк массива определить количество элементов,равных первому элементу массива.

Положим, что первый элемент массива имеет следующие индексы x[0,0]

i:=1; k:=0;
while i<=N do begin
for j:=0 to M do
if x[N,M]=x[0,0] then inc(k);
inc(i); end;

Остальное допишите сами

2. дан массив x(N,M). для каждой строки исходного массива найти 1 положительный элемент. из полученных значений сформировать одномерный массив.

В разделе переменных определите двумерный массив x[n,m] и одномерный массив rez[n] и вспомогательные целочисленные переменные для циклических конструкций. Заполнение массива X значениями, вывод на экран массивов - на ваше усмотрение, напишите сами.

b:=0;
for i:=0 to n do begin
for j:=0 to m do
if x[i,j]>0 then begin rez[b]:=x[i,j]; inc(b); break; end;
end;
{вывод массива}
for i:=0 to b do
write(rez[i]:4);

остальное также допишите сами )

 

[Nikolaй]

что такое rez?

 

[Vladimir_S]

что такое rez?

Имя искомого одномерного массива.

 

[Евгений]

1.
const N=10;
M= 8;
type Tmatr= array[1..N,1..M] of byte;
var A: Tmatr;
i,j,k: byte;
begin
Randomize;
for i:=1 to N do
for j:=1 to M do
A[i,j]:= Random(10);
i:=1; k:=0;
repeat
for j:=1 to M do
if A[i,j]=A[1,1] then Inc(k);
i:=i+2;
until i>N;
Writeln(k);
Readln;
end.

2.
const N= 10;
M= 8;
type Tmatr= array[1..N,1..M] of integer;
Tmass= array[1..N] of integer;
var
A: Tmatr;
B: Tmass;
i,j: byte;
begin
Randomize;
for i:=1 to N do
for j:=1 to M do
A[i,j]:= Random(100)-50;
for i:=1 to n do begin
for j:=1 to n do
Write( A[i,j]:5);
Writeln;
end;
Writeln;
i:=1;
repeat
for j:=1 to M do
if A[i,j]>0 then begin
B:= A[i,j]; Break
end;
Inc(i)
until i>N;
for i:=1 to N do
Write(B:5);
Readln;
end.