Developing.ru

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

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

[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);
Writeln('Enter K:');
Read(K);
C:=1;
For I:=1 to Q1*Q2 Do
If A>K Then
Begin
B[C]:=A;
Inc(C);
End;
For I:=1 To (C-1) Do
write(B,' ');
Readln;
End.
[/syntax]

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

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

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

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

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

un4-funeral писал(а):C нигде не объявлено ((=

*голосом старого маразматика* Эх, поживете ждесь ш наше - так и наушитесь беж компилятора такое жамещать и ишправлячь!
А вообще-то - я в подобных задачах всегда пользуюсь неписанным "сводом программистской попсы". Чаще всего в моих кодах i,j,k - целые, f - текстовый файл, s - строка, A (B) или mas - массивы (если оные упоминаются в задаче), M и N - размерности массива, count - счетчик. Так что эту задачу, если бы ее до меня не разложил по полочкам Medved, я бы написал не более чем так: Кстати, решение Medved абсолютно правильное с точки зрения компилятора и распределения памяти, но препод может придраться, что у него описан одномерный массив вместо двухмерного, хотя для компа это совршенно равнозначно.