Static miniblogs

Netieku galā ar masīviem. Vajag izveidot, lai no tabulas izvada pirmos 3 negatīvos elementus.

program pirmais_uzd;
uses crt;
VAR A:ARRAY[1..4,1..7] OF INTEGER;
I,J,x,y: integer;

begin
clrscr;
Randomize;

gotoXY(33,2);
write('Darbibas ar masiviem');
writeln;
writeln;

writeln ('Ievadi liniju garumu: ');
readln(x);
writeln ('Ievadi kolonnu garumu: ');
readln(y);

writeln('Tagad tabulai pieskirsim nejausas vertibas, spied, lai turpinatu. ');
readln;

FOR I:=1 TO x DO
FOR J:=1 to y DO
A[I,J]:= Random(200)-100;

writeln('Vertibas pieskirtas, spied, lai izvaditu tabulu! ');
readln;

FOR I:=1 TO x DO
begin
FOR J:=1 TO y DO
write (A[I,J]:7);
writeln;
end;

writeln ('Spied, lai izvaditu tabulas pirmas 3 mazakas vertibas: ');
readln;

//Šeit vajadzētu kodu

readln;

end.