Хыиуду » 03 май 2008, 00:47
un4-funeral писал(а):C нигде не объявлено ((=
*голосом старого маразматика* Эх, поживете ждесь ш наше - так и наушитесь беж компилятора такое жамещать и ишправлячь!
А вообще-то - я в подобных задачах всегда пользуюсь неписанным "сводом программистской попсы". Чаще всего в моих кодах i,j,k - целые, f - текстовый файл, s - строка, A (B) или mas - массивы (если оные упоминаются в задаче), M и N - размерности массива, count - счетчик. Так что эту задачу, если бы ее до меня не разложил по полочкам
Medved, я бы написал не более чем так:
Код: Выделить всё
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;
Кстати, решение
Medved абсолютно правильное с точки зрения компилятора и распределения памяти, но препод может придраться, что у него описан одномерный массив вместо двухмерного, хотя для компа это совршенно равнозначно.
[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] абсолютно правильное с точки зрения компилятора и распределения памяти, но препод может придраться, что у него описан одномерный массив вместо двухмерного, хотя для компа это совршенно равнозначно.