Поиск отрицательных элементов и запись их в отдельный массив

Посмотреть архив целиком
program priamoygolnaya_matriza;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..10,1..15] of integer;
b:array[1..150] of integer;
i,j,n,m,otriz:integer;
begin
{Задание матрицы}
writeln('Vvedite kol-vo strok');
readln(n);
writeln('Vvedite kol-vo stolbzov');
readln(m);
writeln('Vvedite matrizy');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
otriz:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<0 then
begin
otriz:=otriz+1;
b[otriz]:=a[i,j];
end;
if otriz=0 then writeln('Otrizatelnix chisel net')
else begin writeln('Otrizatelnie elementi');
for i:=1 to otriz do write(b[i],' ');
writeln;
end;
readln;

Случайные файлы

Файл
ReadMe.txt
Readme.txt
READ ME.txt
METODIK.TXT
README.TXT




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.