Плачу WMZ за решение задач по паскалю.

[djcrazy]

Здравствуйте господа программеры

Задача: Сформировать одномерный массив из элементов двухмерного массива, значения которых бы не превосходили заданное С.

[Sazary]

uses crt;
const m=5;n=5;
var
matr : array[1..m,1..n] of integer;
mas : array[1..m*n] of integer;
i,j,c,k : integer;
begin
clrscr;
{ sozdaem matricu }
randomize;
for i:=1 to m do
  begin
  for j:=1 to n do
    begin
    matr[i,j] := random(100);
    write(matr[i,j]:5);
    end;
  writeln;
  end;
writeln('--------');
{-------}
write('Vvedite c: ');
readln(c);
k := 1;
for i:=1 to m do
  for j:=1 to n do
    if matr[i,j]<=c then
      begin
      mas[k] := matr[i,j];
      inc(k);
      end;
{------}
for i:=1 to k do
  begin
  write(mas[i]:5);
  if i mod 10 = 0 then writeln;
  end;
readln;
end.

djcrazy А вот название темы не по правилам.

[djcrazy]

Спасибо