//Я сбрасывал ему этот код в лс. Думаю, я имею право на эти баллы. var c:array[1..10,1..10] of integer; ar:array of string; i,s,j:integer; begin; randomize; for i:=1 to 10 do begin; for j:=1 to 10 do begin; c[i,j]:=random(-10,10); if c[i,j]>0 then begin; inc(s); setlength(ar,s+1); ar[s]:=inttostr(i)+','+inttostr(j); end; end; end; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do write(c[i,j]:5); end; writeln; writeln('New array:'); for i:=1 to s do writeln(ar[i]); end.
Answers & Comments
Verified answer
//Я сбрасывал ему этот код в лс. Думаю, я имею право на эти баллы.var c:array[1..10,1..10] of integer;
ar:array of string;
i,s,j:integer;
begin;
randomize;
for i:=1 to 10 do
begin;
for j:=1 to 10 do
begin;
c[i,j]:=random(-10,10);
if c[i,j]>0 then
begin;
inc(s);
setlength(ar,s+1);
ar[s]:=inttostr(i)+','+inttostr(j);
end;
end;
end;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 10 do
write(c[i,j]:5);
end;
writeln;
writeln('New array:');
for i:=1 to s do
writeln(ar[i]);
end.