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

dashook · 17.05.2011, 22:33

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

ИТАК:

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

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

AlexZir · 19.05.2011, 15:12

Цитата:

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

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;

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

Цитата:

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

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й · 22.04.2014, 00:03

что такое rez?

Vladimir_S · 22.04.2014, 09:22

Цитата:

Сообщение от Nikolaй

что такое rez?

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

Евгений · 22.04.2014, 20:31

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[i]:= A[i,j]; Break
end;
Inc(i)
until i>N;
for i:=1 to N do
Write(B[i]:5);
Readln;
end.

17.05.2011, 22:33	#1 (permalink)
dashook Новичок Регистрация: 17.05.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Массивы. Паскаль помогите пожалуйста уважаемые УМНЫЕ людички бедной,непонимающей информатику,девушке) очень надо решить и чем быстрее тем лучше!!! ИТАК: 1. дан массив x(N,M). среди нечетных строк массива определить количество элементов,равных первому элементу массива. 2. дан массив x(N,M). для каждой строки исходного массива найти 1 положительный элемент. из полученных значений сформировать одномерный массив.

22.04.2014, 00:03	#3 (permalink)
Nikolaй Новичок Регистрация: 22.04.2014 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	что такое rez?

22.04.2014, 20:31	#5 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	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[i]:= A[i,j]; Break end; Inc(i) until i>N; for i:=1 to N do Write(B[i]:5); Readln; end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070