Developing.ru

for i:=1 to M do
for j:=1 to N do
  if A[i,j]>k then 
  begin  
       B[count]:=A[i,j];
       inc(count);
  end;

[quote="un4-funeral"]C нигде не объявлено ((=[/quote]
*голосом старого маразматика* Эх, поживете ждесь ш наше - так и наушитесь беж компилятора такое жамещать и ишправлячь!
А вообще-то - я в подобных задачах всегда пользуюсь неписанным "сводом программистской попсы". Чаще всего в моих кодах i,j,k - целые, f - текстовый файл, s - строка, A (B) или mas - массивы (если оные упоминаются в задаче), M и N - размерности массива, count - счетчик. Так что эту задачу, если бы ее до меня не разложил по полочкам [b]Medved[/b], я бы написал не более чем так:
[code]
for i:=1 to M do
for j:=1 to N do
if A[i,j]>k then
begin
B[count]:=A[i,j];
inc(count);
end;
[/code]
Кстати, решение [b]Medved[/b] абсолютно правильное с точки зрения компилятора и распределения памяти, но препод может придраться, что у него описан одномерный массив вместо двухмерного, хотя для компа это совршенно равнозначно.

похвально (((:

Я без компилятора писал=)

C нигде не объявлено ((=

Нет, это я на паскале написал просто выделил как делфи чтобы цвета нормальные были. Так понятней?

[b]Medved[/b], ето вы на Делфи написали ?

[syntax='Pascal']
Program lalala;
Const MaxM=100; MaxN=100;
Type Arr=Array[1..MaxM*MaxN] Of Integer;
Var Q1,Q2,I,K:Integer;A,B:Arr;
Begin
Writeln('Enter height and width:');
Readln(Q1,Q2);
Writeln('Enter array:');
For i:=1 to Q1*Q2 Do
Read(A[i]);
Writeln('Enter K:');
Read(K);
C:=1;
For I:=1 to Q1*Q2 Do
If A[i]>K Then
Begin
B[C]:=A[i];
Inc(C);
End;
For I:=1 To (C-1) Do
write(B[I],' ');
Readln;
End.
[/syntax]

Дан двумерный массив nxm, заполненный с клавиатуры. Затем вводим число К и из всех чисел двумерного массива больших К сформировать одномерный массив.
Например:
2 3 5 7 2
1 6 2 3 2 - двумерный массив,
2 5 9 2 1

вводим число к=4 и получаем одномерный массив - 5 7 6 5 9