program massiv;var a:array[1..15] of integer;i:integer;beginrandomize;for i:=1 to 15 do begina[i]:=random(50)-25;if a[i]<0 then a[i]:=0; writeln('a[',i,']=',a[i]); end;end.
program massiv;
var a:array[1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(50)-25;
if a[i]<0 then a[i]:=0; writeln('a[',i,']=',a[i]); end;
end.